Respuestas

¡La mejor respuesta!
2012-06-19T02:23:16+02:00

PASAR DE UNO A OTRO:

-Private Sub WindowsMediaPlayer1_PlayStateChange(ByVa… NewState As Long)
If NewState = 1 Then
Form2.Show
Unload Me
End If
End Sub


PARA CONTRASEÑA:


Crea un formulario nuevo,(frmPass) para que arranque desde ese. y luego si el resto de los forms o el form principal(frmMain)
Le colocas un textbox y un command txtPass y cmdOK)
en txtPass anda a la propiedad PasswordChar y coloca un asterisco *
El codigo seria algo asi

en el cmdOK_clic
if txtPass.text = "Password del programa" then
frmPass.visible = False
frmMain.visible = True
else
msgbox ("Contraseña incorrecta")
txtPass.text = ""
txtPass.setfocus
end if