Bueno te dare una ayuda espero te sirva
Primero que nada tu formulario debe contener lo siguiente
Dos controles Label
Dos controles TextBox
Dos controles CommandButton
1 Label Caption = Usuario
1 Label Caption = Clave
1 TextBox Name = txtUsuario
MaxLenght = 8 'Puede ser el valor que gustes
1 TextBox Name = txtClave
MaxLenght = 8 'Puede ser el valor que gustes
PaswordChar = *
1 CommandButton Name = cmdAceptar
1 CommandButton Name = cmdCancelar
Ahora debes programar algo como lo ke sigue
El Boton cmdAceptar
Private Sub cmdAceptar_Click() 'que vaina escribir esto
Dim strUsuario As String, strClave As String
strUsuario=txtUsuario.Text
strClave=txtClave.Text
If strUsuario="" then
Msgbox "Ingrese un Usuario"
Exit Sub
End If
If strUsuario="arelisberrios" Then
Msgbox "Bingo, eres una chika segura." & vbcrlf & _
"Puedes Continuar con la vaina",opciones,"Titulo de msgbox"
End if
'Ahora toca salir de esta vaina
Load frmElquesiga
frmElquesiga.show
unload me
End Sub 'en verdad que es una vaina de vainas y por ke lo escribo
Pues si deseas programar el cmdcancelar
private sub cmdCancelar_Click() 'escribir un poko mas
Unload Me
'y/o el malevolo de
End
end sub
Y ya esta, espero te ayude, cualquier consulta solo escribe
Saludos