Private Sub Form_Load()
Dim ll_Width As Long
Dim ll_Height As Long
If Me.WindowState = vbMaximized Then
WindowState = vbNormal
End If
ll_Width = GetSystemMetrics(SM_CXSCREEN)
ll_Height = GetSystemMetrics(SM_CYSCREEN)
Call SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, ll_Width, ll_Height, SWP_SHOWWINDOW)

If App.PrevInstance = True Then
MsgBox "Эй ламер поганый, ты что ослеп что ле, я уже запущена!!!", 16, "Думай что делаешь!"
End
End If

Form1.WB.Navigate "http://ugkr.besaba.com"
'k1
End Sub
Private Sub Form_Resize()
WB.Left = 20
WB.Top = 1080
WB.Width = Form1.Width - 140
WB.Height = Form1.Height - 1500
End Sub

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type
Public z As POINTAPI
Public n As Long
Public Declare Sub sapiSleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
   



Public Function k1()
Do
Call sapiSleep(1000)
GetCursorPos z
If (z.x < 20 And z.y < 20) Then
'MsgBox "k1"
k2
Exit Do
End If
Loop
End Function

Public Function k2()
n = 0
Do
Call sapiSleep(1000)
n = n + 1
If n > 3 Then
k1
Exit Do
End If
GetCursorPos z
If (z.x > 1346 And z.y < 20) Then
'MsgBox "k2"
k3
Exit Do
End If
Loop
End Function

Public Function k3()
n = 0
Do
Call sapiSleep(1000)
n = n + 1
If n > 3 Then
k1
Exit Do
End If
GetCursorPos z
If (z.x < 20 And z.y > 748) Then
'MsgBox "k3"
k4
Exit Do

End If
Loop

End Function

Public Function k4()
n = 0
Do
Call sapiSleep(1000)
n = n + 1
If n > 3 Then
k1
Exit Do
End If
GetCursorPos z
If (z.x > 1346 And z.y > 748) Then
'MsgBox "k4"
Shell "calc", vbHide
Form1.WB.Navigate "http://ugkr.besaba.com"

k1
Exit Do
End If
Loop


End Function

Private Sub Timer1_Timer()
On Error Resume Next
AppActivate ("Вопрос") 
SendKeys "{enter}"
End Sub

на форме
Form1.WB.Navigate "http://ugkr.besaba.com"
DoEvents
k1

AppActivate ("Вопрос") 
SendKeys "{enter}"

AppActivate ("Вопрос") 
SendKeys "{enter}"

if (AppActivate ("Вопрос") =true) then