условный оператор, правильное применение к заданию

[my_sappho_story]

Чего-чего?

Да не задумка правильная ток у тя функция задана не правильно!

Это как понимать?

[Hacker19_90]

Так и понимай!

[Prisioner]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Y > -(Form1.Height / Form1.Width) * X + Form1.Height Then Form1.MousePointer = 15
If Y < -(Form1.Height / Form1.Width) * X + Form1.Height Then Form1.MousePointer = 11
End Sub

Рабочий код. У вас ось X направлена вправо, а ось Y вниз (а не вверх) - вы забыли это учесть.

[my_sappho_story]

Работает

Код:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Y > -(Form1.Height / Form1.Width) * X + Form1.Height Then Form1.MousePointer = 15
If Y < -(Form1.Height / Form1.Width) * X + Form1.Height Then Form1.MousePointer = 11
End Sub
Рабочий код. У вас ось X направлена вправо, а ось Y вниз (а не вверх) - вы забыли это учесть.

Спасибо