En el formulario de inicio:
Código:
If App.PrevInstance Then
MsgBox "El programa ya se está ejecutando", vbInformation + vbOKOnly, "Facturación"
End
Else
..... iniciar programa
End If
o si no quieres mostrar ningún mensaje, simplemente:
Código:
If App.PrevInstance Then End