Private Sub Command1_Click() If Text1.Text = password Then Text1.Visible = False Label1.Visible = True Label1.Caption = "Login Successful" Else Label1.Visible = True Label1.Caption = "Login Fail! Please enter your password again" Text1.Text = "" End If End Sub Private Sub Form_Load() password = "1234" End Sub Private Sub Text1_Click() Label1.Visible = False End Sub