Как изменить вид курсора - VB

Формулировка задачи:

Как можно изменить вид указателя формы в зависимости от его положения на форме: если укуазатель выше диагонали (из верхнего правого угла к нижнему левому) он имеет одну форму, если выше - другую. Как-то надо найти координаты прямой (диагонали). Но как? По ур-нию прямой у=кх? Там коефициет к=Form1.Height / Form1.Width. Но как это и куда правильно применить? Вот что придумалось

                    Листинг программы
                
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Y > (Form1.Height / Form1.Width) * X Then Form1.MousePointer = 15
If Y < (Form1.Height / Form1.Width) * X Then Form1.MousePointer = 11
End Sub

Но с мышкой творятся ужасные вещи - она не меняется правильно. Что возможно вставить в условие?

Решение задачи: «Как изменить вид курсора»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
'Коэффициент диагонали клиентской области формы. ~550 - высота заголовка в твипах 
k = Me.Width / (Me.Height - 550)
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If X / Y < k Then
Me.MousePointer = 11
Else
Me.MousePointer = 15
End If
End Sub