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.