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.