Final Auto click

Public Class Form1
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function key Lib "user32" Alias "GetAsyncKeyState" (ByVal Key As Keys) As Keys
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Const mouseclickup = 2
Private Const mouseclickdown = 4

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If GetAsyncKeyState(81) Then
Timer1.Start()
ElseIf GetAsyncKeyState(16) Then
Timer1.Stop()
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

MsgBox("Welcome to Arix Auto Clikxer Beta 1.0")
Timer2.Start()
Me.KeyPreview = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 100
Timer1.Start()
Label4.Text = "Status-On"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Label4.Text = "Status-Off"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Text = TimeString
Label3.Text = DateString
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Process.Start("http://mesolottery.com/")
End Sub

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("All right are reserved to Arix 2009-2010 - The main Site mesolottery.com ©")
End Sub

Private Sub HowToUseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowToUseToolStripMenuItem.Click
MsgBox("1.Just go to your game once in game alt+tab Press start then go fast on your game & Enjoy yourself 2009-2010©")
End Sub

Private Sub CreditsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreditsToolStripMenuItem.Click
MsgBox("To me and mesoslottory and all the tool that i used ")
End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

End Sub

Private Sub YesIAmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesIAmToolStripMenuItem.Click
MsgBox("Cya and ComeBack again")
End
End Sub

Private Sub NoIWantToStayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoIWantToStayToolStripMenuItem.Click
MsgBox("Fine Enjoy")
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Increment(+1)
If ProgressBar1.Value = 100 Then
Timer2.Stop()
MsgBox("Loaded to 100%")
End If
End Sub
End Class