Private Sub frmLogin_Paint(ByVal sender As Object,
         ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        If Not Me.cObjImagen Is Nothing Then
            e.Graphics.DrawImage(Me.cObjImagen, 0, 0, Me.Width, Me.Height)
        End If
    End Sub

Private Const WM_NCHITTEST As Integer = 132
    Private Const HTCAPTION As Integer = 2
    Protected Overloads Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_NCHITTEST Then
            m.Result = New IntPtr(HTCAPTION)
        Else
            MyBase.WndProc(m)
        End If
    End Sub