LISTING LOGIN
Dim b
Dim c As String
Private Sub Command2_Click()
If txtuser = "ADMIN" Then
txtpass = "admin"
MDIForm1.Show
Me.Hide
Else
MsgBox "Maaf username & password anda salah"
txtuser.SetFocus
End If
End Sub
Private Sub Form_Load()
c = "SILAHKAN LOGIN TERLEBIH DAHLULU"
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 100
b = b + 1
Label3 = Left(c, b)
If b = Len(c) Then
b = 1
Timer1.Interval = 3000
End If
End Sub
Private Sub Timer2_Timer()
Label4.ForeColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)
End Sub
KLIK DISINI
