Comprobar si la aplicación ya está cargada


Basta con agregar este código dentro de la sección Load del formulario inicial.

Private Sub Form_Load()

Dim Msg as String
If App.PrevInstance Then
    Msg = App.EXEName & ".EXE" & " ya está en ejecución"
    MsgBox Msg, 16, "Aplicación."
    End
    End If 

End Sub