TUGAS VB DENGAN DATABASE

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