[RaggiTech]

كاتب الموضوع : BADRMEDIA

::: How To Move Borderless Form :::

Declare Variables in General Blank

كود :

[color=#000000][COLOR=#0000bb] Dim drag [/color][color=#007700]As [/color][COLOR=#0000bb]Boolean
    Dim mousex [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Integer
    Dim mousey [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Integer  
[/COLOR][/COLOR]

Then

كود :

[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub FrmBADRMEDIA_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
        drag [/COLOR][color=#007700]= [/color][COLOR=#0000bb]True
        mousex [/COLOR][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Left
        mousey [/COLOR][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Top
    End Sub

    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub FrmBADRMEDIA_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]drag Then
            Me[/COLOR][color=#007700].[/color][color=#0000bb]Top [/color][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- [/color][COLOR=#0000bb]mousey
            Me[/COLOR][color=#007700].[/color][color=#0000bb]Left [/color][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- [/color][COLOR=#0000bb]mousex
        End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000bb]End Sub

    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub FrmBADRMEDIA_MouseUp[/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]MouseUp
        drag [/COLOR][color=#007700]= [/color][COLOR=#0000bb]False
    End Sub  
[/COLOR][/COLOR]

This Is Simple