مساعدة اذا ممكن

العفو منك اخي كان موجود معي الكود بس دورته :hot: لما تعبت مالقيته

السلام عليكم...

جرب هذا الكود:

Private LastX As Single
Private LastY As Single
Private MoveDir As String

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MoveDir = ""
    
    If X > LastX Then
        MoveDir = "يمين"
    ElseIf X < LastX Then
        MoveDir = "يسار"
    End If
    LastX = X
    
    If Y > LastY Then
        MoveDir = MoveDir & " أسفل"
    ElseIf Y < LastY Then
        MoveDir = MoveDir & " أعلى"
    End If
    LastY = Y
    
    Text1.Text = Trim$(MoveDir)
End Sub

نرجو الاستفادة و السلام.

شكرااااااا لك اخي الفاضل    :) 

الكود يعمل 100%
ان شاء الله في ميزان حسناتك