[vb6]password protection
I'm writing this right here because i'm so BOOOOREEEDDDDDDD And i wanna program but can't because i'm not home so here this is
What you need
1 text box - txtPassword
1 Command button - cmdSubmit
What you need
1 text box - txtPassword
1 Command button - cmdSubmit
Option Explicit
Private Sub cmdSubmit_click()
If (txtPassword.text = ("Password")) Then
Call Msgbox ("Access granted",vbinformation,"Success")
Else
Call Msgbox ("Access denied",vbinformation,"Error")
End if
End Sub

