Public Sub Main()
If Not App.EXEName = "MyApp" Then
    End
Else
        If GetMyAppCopy() = False Then
            Form1.Show
        Else
            End
        End If
End If
End Sub

Public Function GetMyAppCopy() As Boolean
Dim strComputer
Dim objWMIService
Dim colProcessList
Dim objProcess
Dim i As Integer
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _
  & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
  ("Select * from Win32_Process")


Set colProcessList = objWMIService.ExecQuery _
  ("Select * from Win32_Process Where Name = 'MyApp.exe'")
GetMyAppCopy = False
i =  0 
For Each objProcess In colProcessList
    If i >  0  Then
        GetMyAppCopy = True
    Else
        GetMyAppCopy = False
    End If
i = i +  1 
Next
End Function