form frm Aplikasi SMS

Dim aSp As String
Dim kElUaR As Boolean
Dim sMsBaRu As Boolean

Private Sub Form_Activate()
''Me.Top = (Me.Top * 2) - 420
''Me.Left = Me.Left * 2
End Sub

Private Sub Form_Load()

kElUaR = False
sH = False
bTr = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
SmS.tUtUp_pOrT
kOnEkSi.Close
Set kOnEkSi = Nothing
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label12.ForeColor = vbBlack
End Sub


Private Sub Label12_Click()
Label12.Caption = "Wait For Exit"
kElUaR = True
Label12.ForeColor = vbRed
Label2.Enabled = False
End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label12.ForeColor = vbWhite
End Sub


Private Sub Label7_Click()
Form2.Show

End Sub

Private Sub Label8_Click()
Form1.Show

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If Label4.Visible = True Then
Label4.Visible = False
ElseIf Label4.Visible = False Then
Label4.Visible = True
End If
On Error Resume Next
If Label6.Visible = True Then
Label6.Visible = False
ElseIf Label6.Visible = False Then
Label6.Visible = True
End If
On Error Resume Next
If kElUaR = True Then End

If pUlS = True Then
Label2.Caption = "Pulse . . ."
LblPULSA.Caption = SmS.cEk_pUlSa(TxtPROVIDER.Text)
If LblPULSA.Caption = "0" Then
pUlS = True
ElseIf Val(LblPULSA.Caption) < 1000 Then MsgBox "Pulsa Telah Mencapai Batas Minimum", vbCritical, "Peringatan" pUlS = True ElseIf Val(LblPULSA.Caption) < 10000 Then Zpam.SW.Visible = False Zpam.SW.Movie = "" Zpam.Width = 2250 Zpam.Label2.Caption = "Rp " & LblPULSA.Caption Zpam.Show pUlS = False sH = True 'supaya form zpam tidak muncul lagi Else Zpam.Hide pUlS = False sH = False End If Else Label2.Caption = "Check" sMsBaRu = SmS.cEk_sMs_bArU(2) Label2.Caption = "" If sMsBaRu = False Then kIrImSmS Else bAcAsMs 'btr max=255 If bTr >= 25 Then
Call bAtErAi
bTr = 0
End If

End If 'smsbaru
End If ' puls
End Sub