[vb6] spostare form con borderstyle = none

[fedina_2]

Ciao a tutti.
Ho un problemino: nel mio progetto in Vb6 ho dei form senza bordo (borderstyle = none).Il fatto è che vorrei poterli spostare col mouse, ma questo mi sembra non sia possibile se imposto la proprietà
borderstyle = none. Per altri valori di tale proprietà invece riesco (fixed single, sizable etc..).
Non è proprio possibile? Devo per forza avere un bordo nel form per poterlo spostare?
Grazie.

[junx]

Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Long) As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
        x As Single, Y As Single)
    If Button = 1 Then
        Dim ReturnVal As Long
        x = ReleaseCapture()
        ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End If
End Sub

Ciao!

[fedina_2]

Perfetto, era proprio quello che cercavo!!!
Grazie!