Error	1	No se ha especificado ningún argumento para el parámetro 'e' de 'Private Sub Button1_Click(sender As Object, e As System.EventArgs)'.	C:\Documents and Settings\Pedro Luis\Configuración local\Datos de programa\Temporary Projects\WindowsApplication1\Form1.vb	8	9	WindowsApplication1

Error	2	No se ha especificado ningún argumento para el parámetro 'sender' de 'Private Sub Button1_Click(sender As Object, e As System.EventArgs)'.	C:\Documents and Settings\Pedro Luis\Configuración local\Datos de programa\Temporary Projects\WindowsApplication1\Form1.vb	8	9	WindowsApplication1

Private Sub Command1_Click()
    Call Command2_Click
End Sub

Private Sub Command2_Click()
    MsgBox "HI"
End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Call Button2_Click()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 MsgBox("HI")
End Sub

Private WithEvents FrmLogin As frmUser
Dim Loggeado As Boolean

Private Sub cmdAutenticar_Click()
    Set FrmLogin = New frmUser
    With FrmLogin
        .Show vbModal
    End With
    Set FrmLogin = Nothing
    
    If Loggeado = True Then '// codigo una ves loggeado //
        Me.BackColor = vbGreen 
    Else
        Me.BackColor = vbRed
    End If
End Sub



Private Sub FrmLogin_Resultado(e As Boolean)
    If e = True Then
        Loggeado = True
    Else
        Loggeado = False
    End If
End Sub

Public Event Resultado(ByRef e As Boolean)
Dim Loggeado As Boolean

Private Sub cmdComprobar_Click()
    With Me
        If .txtUser = .txtPassword Then
            Loggeado = True
            Unload Me
        Else
            MsgBox "Incorrecto. Inténtelo nuevaente", vbExclamation
        End If
    End With
End Sub

Private Sub Form_Load()
    Loggeado = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Loggeado = True Then
        RaiseEvent Resultado(True)
    Else
        RaiseEvent Resultado(False)
    End If
End Sub