[RESOLVED] Code to make mouse pointer change manually when over a form's border?

I have a form with no borders. I want to change the mouse pointer when it is over a border. For example, if it is over the left border then change to sth, etc..
I use this for the left&top borders and in-between parts. But it doesn't work. It changes the mouse pointer when on the left border, or when on the top border, but not when it's in the between.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < 6 Then
MousePointer = 9
ElseIf Y < 6 Then
MousePointer = 7
ElseIf X < 6 And Y < 6 Then
MousePointer = 11
Else
MousePointer = 0
End If
End Sub

Sorry, but couldn't tag this code as it says that only 25 characters are allowed.