[GHID][VB.NET]Cum sa miscam o fereastra fara margini

[raynor009]

Dschideti VB creati in proiect nou apasati pe Form1 si mergeti la FormBorderStyle si selectati None.Dupaia dati dublu click pe Form1 si paste la codul meu.

Public Class Form1
    Private Const WM_NCHITTEST As Integer = &H84
    Private Const HTCLIENT As Integer = &H1
    Private Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then
                    m.Result = HTCAPTION
                End If
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub

[Anonimusz]

L-am testat,foarte bun