[ali.alfoly]

طيب انا حاولت معرفش شوف حدرتك كده والله ياريت ينحل الموضوع ده

كود :

   Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
       If (e.X <= 2 AndAlso e.Y <= 2) OrElse (e.X + 2 >= Me.Width AndAlso e.Y + 2 >= Me.Height) Then
           Me.Cursor = Cursors.SizeNWSE
       ElseIf (e.X + 2 >= Me.Width AndAlso e.Y <= 2) OrElse (e.X <= 2 AndAlso e.Y + 2 >= Me.Height) Then
           Me.Cursor = Cursors.SizeNESW
       ElseIf e.X <= 2 OrElse e.X + 2 >= Me.Width Then
           Me.Cursor = Cursors.SizeWE
       ElseIf e.Y <= 2 OrElse e.Y + 2 >= Me.Height Then
           Me.Cursor = Cursors.SizeNS
       Else
           Me.Cursor = Cursors.[Default]
       End If
   End Sub