HELP!!
Code:
Public Class Form1
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim start As String
start = "start"
Do Until start = "stop"
AppActivate("World of Warcraft")
SendKeys.SendWait("1")
Sleep(10000)
Loop
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim start As String
start = "stop"
End Sub
End Class
When I click the first button, the GUI goes white and doesn't respond, but the program keeps running.
How do I make it so the GUI doesn't freeze?