Olá
estou usando um form (VB 6) sem a barra título, no lugar dela criei uma personalizada usando um picture box... como posso fazer para mover o form clicando na picture box, assim como fazemos clicando na barra de título?

Abraços!!

Dim m_DragMode As Boolean
Dim m_DragX As Single
Dim m_DragY As Single

 

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_DragMode = True
    m_DragX = X
    m_DragY = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.WindowState = vbMaximized Or Me.WindowState = vbMinimized Then Exit Sub
   
    If m_DragMode Then
        Me.Move Me.Left + X - m_DragX, Me.Top + Y - m_DragY
    End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_DragMode = False
End Sub

 

 

'Vc pode usar a rotina para um controle ou para o Proprio Form

Pegue o exemplo, código automático.