__ShArK__

yall goin to love this, do u use kazaa? r u tierd of all the bloody pop ^, will this is for u. what u need is 2 timers, 1 cmdbutton, 1 label, and 1 txt box...






Code:
Private Sub cmdQuit_Click()







End
End Sub


Private Sub txtStatus_Change()
If frmMain.WindowState = 1 Then
Let Timer2.Enabled = True
Else
Let Timer2.Enabled = False
Let frmMain.Caption = "AdCache Remover"
End If
End Sub


Private Sub Form_Load()
Let lblTime.Caption = 0
Let Timer1.Enabled = True
Let Timer2.Enabled = False
End Sub


Private Sub Timer1_Timer()
Let lblTime.Caption = Str((lblTime.Caption) + 1)
Let lblStatusTime.Caption = Str((lblStatusTime.Caption) + 1)
On Error Resume Next
x% = Len(Dir$("c:\Windows\System\AdCache\*.*")) 'If you have a different directory for the AdCache change it.
If Err Or x% = 0 Then fileexists = False Else fileexists = True
If lblTime.Caption = 1 Then
If fileexists = True Then
Kill ("C:\Windows\System\AdCache\*.*") 'If you have a different directory for the AdCache change it.
Let txtStatus.Text = "Deleting AdCache"
Let lblTime.Caption = 0
Else
Let txtStatus.Text = "Standby"
Let lblTime.Caption = 0
End If
End If
If lblStatusTime.Caption = 1 Then
Let txtStatus.Text = txtStatus.Text & "."
ElseIf lblStatusTime.Caption = 2 Then
Let txtStatus.Text = txtStatus.Text & ".."
ElseIf lblStatusTime.Caption = 3 Then
Let txtStatus.Text = txtStatus.Text & "..."
ElseIf lblStatusTime.Caption = 4 Then
Let txtStatus.Text = txtStatus.Text & "...."
ElseIf lblStatusTime.Caption = 5 Then
Let txtStatus.Text = txtStatus.Text & "....."
ElseIf lblStatusTime.Caption = 6 Then
Let txtStatus.Text = txtStatus.Text & "......"
ElseIf lblStatusTime.Caption = 7 Then
Let txtStatus.Text = txtStatus.Text & "......."
ElseIf lblStatusTime.Caption = 8 Then
Let txtStatus.Text = txtStatus.Text & "........"
ElseIf lblStatusTime.Caption = 9 Then
Let txtStatus.Text = txtStatus.Text & "........."
ElseIf lblStatusTime.Caption = 10 Then
Let txtStatus.Text = txtStatus.Text & ".........."
ElseIf lblStatusTime.Caption = 11 Then
Let txtStatus.Text = txtStatus.Text & "..........."
ElseIf lblStatusTime.Caption = 12 Then
Let txtStatus.Text = txtStatus.Text & "............"
ElseIf lblStatusTime.Caption = 13 Then
Let txtStatus.Text = txtStatus.Text & "............."
ElseIf lblStatusTime.Caption = 14 Then
Let txtStatus.Text = txtStatus.Text & ".............."
ElseIf lblStatusTime.Caption = 15 Then
Let txtStatus.Text = txtStatus.Text & "..............."
ElseIf lblStatusTime.Caption = 16 Then
Let txtStatus.Text = txtStatus.Text & "................"
ElseIf lblStatusTime.Caption = 17 Then
Let txtStatus.Text = txtStatus.Text & "................."
ElseIf lblStatusTime.Caption = 18 Then
Let txtStatus.Text = txtStatus.Text & ".................."
ElseIf lblStatusTime.Caption = 19 Then
Let txtStatus.Text = txtStatus.Text & "..................."
ElseIf lblStatusTime.Caption = 20 Then
Let txtStatus.Text = txtStatus.Text & "...................."
ElseIf lblStatusTime.Caption = 21 Then
Let txtStatus.Text = txtStatus.Text & ""
Let lblStatusTime.Caption = 0
End If
End Sub


Private Sub Timer2_Timer()
Let lblCaptionTime.Caption = Str((lblCaptionTime.Caption) + 1)
If lblCaptionTime.Caption = 2 Then
Let lblCaptionTime.Caption = 0
End If
If lblCaptionTime.Caption = 0 Then
Let frmMain.Caption = "AdCache Remover"
ElseIf lblCaptionTime.Caption = 1 Then
Let frmMain.Caption = txtStatus.Text
End If


End Sub :grin:

Max!

Good one there.