Form Login Aplikasi SMS

Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1 = "yeni" Then
If Text2 = "fatimah" Then
LoginSucceeded = True
''frmLogin.Hide
Zpam.Show
Unload Me
Else
MsgBox "Invalid Password, try again!", , "Login"
Text2.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "Invalid USER, try again!", , "Login"
Text1.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

Private Sub Command2_Click()
MsgBox "Anda yakin mau keluar dari program ini?", vbYesNo + vbDefaultButton2, "Pesan"
End
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Command2.BackColor = &H808080
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Command2.BackColor = vbRed
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error GoTo bye
If Bar.Value = 30 Then
MsgBox "Maaf waktu anda habis", vbCritical, "Times Up"
MsgBox "Makanya lain kali jangan buka program sembarangan !!!", vbOKOnly, "Peringatan"
Unload Me
End
End If
Bar.Value = Bar.Value + 1
Label6.Caption = Bar.Value
bye:
Exit Sub

End Sub