Código:
la verdad es que ando un poco perdido en visual. Private Sub Barra_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
barra.Location = New Point(e.X, 425)
textb.Text = e.X.ToString()
End Sub
gracias de antemano.


