01.
Sub
GetProcess()
02.
localByName = Process.GetProcessesByName(
"WePlay"
)
03.
If
localByName.Count > 0
And
localByName.Count < 2
Then
04.
05.
Else
06.
07.
OpenApplication(
"WePlay"
)
08.
09.
End
If
10.
End
Sub
11.
12.
Public
Sub
OpenApplication(myApp
As
String
)
13.
If
myApp =
"WePlay"
Then
14.
Process.Start(
"WePlay.exe"
)
15.
Process.Start(myApp)
16.
End
If
17.
End
Sub