Prueva este codigo tio.
'
Option Explicit
Private Sub Command1_Click()
' Aqui simplemente un button con la instrucion Terminar
End
End Sub
Private Sub Form_Load()
'Aqui se verifica al iniciar el programa que el programa no este en ejecucion en caso de que lo este mandara un mensage de error y se cerrara el programa que trataba de iniciar sin afectar al primero.
If App.PrevInstance Then
Call MsgBox("El programa ya se esta ejecutando.", vbExclamation, "Error")
End
End If
End Sub
' Enjoy this code