SendMessage Lib "User32" Alias "SendMessageA" in VB.net? [resolved]

[Ultimasnake]

This api call should move the form around. even if it is borderless (what mine is).. any suggestions on how to do this with the below code OR with other code?

I am wondering how i can use similar code or this code in vb.net
i doesnt seem to work at all.

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
 
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngReturnValue As Long
   If Button = 1 Then
      Call ReleaseCapture
      lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

this is the code i used in vb6.. but in lParam As Any gives : Any is not supported bug..

[Merrion]

There's a class for moving a captionless form in VB.net on this site...

[Pirate]

Or use this code :

Private Declare Function ReleaseCapture Lib "user32" () As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 
    Private Const WM_NCLBUTTONDOWN As Integer = &HA1
    Private Const HTCAPTION As Integer = 2
 
    Public Sub New()
        Me.Text = "Drag anywhere to move"
        AddHandler Me.MouseDown, AddressOf frmMain_MouseDown
    End Sub
 
    Private Sub frmMain_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        'Don't drag the sceen if it is the right button or the wheel.
        If e.Button = MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
        End If
 
    End Sub

[Ultimasnake]

Thanks guys...

i am using the one from pirate

its like my code but fixed :P