Roombuster


‘add 9 labels and 1 text and 1 timer

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

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Top = Screen.Height / 2 – Height / 2
Left = Screen.Width / 2 – Width / 2
StayOnTop Me
ErrorRsenD “•·• Lean Buster ¹·º •·•”
ErrorRsenD “•·• Now Loading •·•”

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormDrag Me
End Sub

Private Sub Form_Paint()
Etched3D Me
FormShade_BlueGreen Me
End Sub

Private Sub Form_Resize()
StayOnTop Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
ErrorRsenD “•·• Lean Buster ¹·º •·•”
ErrorRsenD “•·• Now UnLoading •·•”
Unload Me
End
End Sub

Private Sub Label2_Click()
Label1.Caption = “0”
Label9.Caption = “0”
Timer1.Enabled = True
End Sub

Private Sub Label3_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Label5_Click()
Unload Me
End
End Sub

Private Sub Label6_Click()
Form1.WindowState = 1
End Sub

Private Sub Label7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormDrag Me
End Sub

Private Sub Text1_Change()

End Sub

Private Sub Timer1_Timer()
Dim topbust
If FindRoom Then Window_Close FindRoom
Label1.Caption = “0”
stopbust = False
Do: DoEvents
Call PrivateRoom(Text1)
Label1.Caption = Val(Label1.Caption) + 1
waitforok
If Timer1.Enabled = False Then Exit Sub
Loop Until FindRoom <> 0 Or Timer1.Enabled = False
If FindRoom <> 0 Then
Timeout 0.5
ErrorRsenD “•·• Lean Buster ¹·º •·•”
Timeout 0.2
ErrorRsenD “•·• Busted: ” & Label1.Caption & ” trys •·•”
End If
Timer1.Enabled = False
If Timer1.Enabled = False Then Exit Sub
End Sub

Private Sub Timer2_Timer()
Dim nofreeze
nofreeze = DoEvents
If Timer1.Enabled = False Then Timer2.Enabled = False
If Timer2.Enabled – False Then Exit Sub
Label9.Caption = Val(Label9.Caption) + 1
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s