'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