Private Sub Command1_Click() If text1.Text = "vb6brian" Then If text2.Text = "brian" Then MsgBox "Access Granted" Else MsgBox "Check username/password" End If End If End Sub
Private Sub Timer1_Timer() label5.Caption = Time label6.Caption = Date End Sub
N ICE IT WORK !!
Naaqn 3 years ago
thanks :D
loomyloomydah 4 years ago