Foro de elhacker.net

Private Sub btnacpetar1_Click()
Dim error As VbMsgBoxResult
If txtclave1.Text = "" Then     'si la casilla está vacía manda error
error = MsgBox("¡Error! No ha ingresado la clave", vbOKOnly + vbCritical, "Error") Else
Form2.Show            ' si ha ingresado una clave,muestra el formulario 2
End If
End Sub

Private Sub btnaceptar2_Click()
Dim error As VbMsgBoxResult
If txtclave2.Text <> Form1.txtclave1.Text Then   'si la clave es distinta, error.
error = MsgBox("¡Error! La clave no es válida", vbOKOnly + vbCritical, "Error")  txtclave2.Text = ""       ' y vacia la casilla
Else                    ' ...si la clave es igual a la anterior
End                    ' finaliza el proceso
End If
End Sub