Private Sub Form_Load()Dim Ya_Existe As IntegerYa_Existe = App.PrevInstanceIf Ya_Existe <> 0 ThenMsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"EndEnd IfEnd Sub