Mirá si te sirve algo así,
solo a modo de idea yá que depende de lo quieras hacer podrias usar CreateMutex o alguna Alternativa a CreateMutex.
Option Explicit
Private Sub Command1_Click()
Shell App.Path & "\" & App.EXEName, vbNormalFocus
End ' o Unload Me
End Sub
Private Sub Form_Load()
If App.LogMode = 0 Then
MsgBox "Ejecutar compilado"
End
End If
If App.PrevInstance Then
Me.Caption = "Instancia Auuxiliar"
Else
Me.Caption = "Primera instancia"
End If
End Sub
Saludos
es exactamente lo que te recomende no lo hice al code porque estaba en clases y no puedo hacer mucho desde hay ! bn dessa es justo eso je