Program Login sederhana pada VB

Pada kesempatan kali ini admin akan memberikan contoh program login sederhana pada VB, 100% working sudah dicoba admin :)

Pict :

Codingnya :

Form1 :
Private Sub Command1_Click()
If Text1 = "perpus01" And Text2 = "perpus01" Then
Form2.Show
Unload Me
Else
MsgBox "User Name atau password yg anda masukkan salah" & vbNewLine & "Silahkan Coba Lagi!!", vbCritical, "Perhatian!"
Text1 = " "
Text2 = " "
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Form2 :
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 2
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
MsgBox "selamat datang", vbOKOnly, "login"
Form3.Show
Unload Me
End If
End Sub