Mover Form Clicando Em Uma Figura

[Guest --marcio --]

como eu faco para mover um form clicando numa figura que foi adicionada no form?

[kuroi]

exatamente o mesmo codigo daqui: http://scriptbrasil.com.br/forum/index.php?showtopic=105640

so troque os eventos. em vez de usar o MouseMove e o MouseDown do Form, use o MouseMove e o MouseDown da sua PictureBox.

[Márcio dresch]

Public Class PictureBox1

Structure MoveForm

Dim X As Integer

Dim Y As Integer

End Structure

Dim mv As MoveForm

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub

mv.X = Me.Left - MousePosition.X

mv.Y = Me.Top - MousePosition.Y

End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub

Me.Left = mv.X + MousePosition.X

Me.Top = mv.Y + MousePosition.Y

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub

End Class

olha como coloquei o codigo ..

mas ele so move se eu clicar no form e não na figura.

sera que ta errado?

cacela a explicacao .. botei meus neuronios a funciona e deu certo...... valeuuuuuuuuuuuuuuuuuu