[RaggiTech]

كاتب المشاركة : GinoSama

Or you can do this one

كود :

[color=#000000][COLOR=#0000bb]Dim X[/color][color=#007700], [/color][color=#0000bb]Y [/color][color=#007700]As [/color][COLOR=#0000bb]Integer  
[/COLOR][/COLOR]

كود :

[color=#000000][COLOR=#007700]Private [/color][color=#0000bb]Sub Form1_MouseDown[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseDown
        X [/COLOR][color=#007700]= [/color][color=#0000bb]Control[/color][color=#007700].[/color][color=#0000bb]MousePosition[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Location[/color][color=#007700].[/color][COLOR=#0000bb]X
        Y [/COLOR][color=#007700]= [/color][color=#0000bb]Control[/color][color=#007700].[/color][color=#0000bb]MousePosition[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Location[/color][color=#007700].[/color][COLOR=#0000bb]Y
    End Sub  
[/COLOR][/COLOR]

كود :

[color=#000000][COLOR=#007700]Private [/color][color=#0000bb]Sub Form1_MouseMove[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseMove
        [/COLOR][color=#007700]If [/color][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]Button [/color][color=#007700]= [/color][color=#0000bb]MouseButtons[/color][color=#007700].[/color][COLOR=#0000bb]Left Then
            NewPoint [/COLOR][color=#007700]= [/color][color=#0000bb]Control[/color][color=#007700].[/color][COLOR=#0000bb]MousePosition
            NewPoint[/COLOR][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]= [/color][color=#0000bb]NewPoint[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- ([/color][color=#0000bb]X[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]NewPoint[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]= [/color][color=#0000bb]NewPoint[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- ([/color][color=#0000bb]Y[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Location [/color][color=#007700]= [/color][COLOR=#0000bb]NewPoint
        End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

btw thanks for sharing bro!