'СОРС ЗА ФОРМАТА

'Таймер прихващаш кординатите на мишката

Private Sub Timer1_Timer()

Kordinati 'Задействаме процедура от модула определяща кординатите на мишката

Text1.Text = cordinataX ' Записваме кординатата по Х в Text1

Text2.Text = cordinataY ' Записваме кординатата по Y в Text2

'Следват примерни събития свързани със стойностите на кординатите на мишката

If cordinataX > Screen.Width / 15 / 2 Then ' Ако кордината по Х на мишката е > от 1/2 ширина на монитора

Form1.BackColor = vbRed 'Фонът на формата да стане червен

Frame1.BackColor = Form1.BackColor 'Фонът на Frame1 да стане червен

Frame1.Caption = "Дясна половина " ' Надписът на Frame1 да се смени

Frame1.Left = Form1.Width / 2 'Frame1 да се премести в дясната половина

Else 'Ако кординатата е по-малка от половината монитор

Form1.BackColor = vbGreen 'Фонът на формата да стане зелен

Frame1.BackColor = Form1.BackColor 'Фонът на Frame1 да стане зелен

Frame1.Caption = "Лява половина " ' Надписът на Frame1 да се смени

Frame1.Left = 0 'Frame1 да се премести в лявата половина

End If

If cordinataY < 5 Then Form1.Visible = False ' Ако кординатата по Y e по-малка от 5 формата става невидима

If cordinataY > Screen.Height / 15 - 20 Then Form1.Visible = True ' Тук правим формата отново видима

End Sub

'СОРС ЗА МОДУЛА

' Декларация на АПИ функция за взимане позицията на мишката

Private Declare Sub GetCursorPos Lib "user32" (lpPoint As POINTAPI)

' Декларация на променливи

Private Type POINTAPI

x As Long

y As Long

End Type

Private RECT As POINTAPI

Public cordinataX As Integer

Public cordinataY As Integer

'Публичната процедура за запис на кординатите на мишката в публичните променливи cordinataX и cordinataY

Public Sub Kordinati()

Call GetCursorPos(RECT)

cordinataX = RECT.x

cordinataY = RECT.y

End Sub