WAP of Password security

'WAP of Password security

'controls       Property        Setting

'Textbox1        Name            txt
'                Caption           -
                
'Label1          Name            lbl
 '               Caption          Enter Password

'command1        Name            cmdOk
'                Caption           OK

'command2        Name            cmdCancel
'                Caption           Cancel
          
'-----------------------------------------------------
'                        CODE

Private Sub cmdOk_click()
If txt.text="123" Then
msgbox("Welcome")
else
msgbox("Wrong Password - enter 123")
End IF
End Sub

Private Sub cmdCancel_click()
End
End Sub