29-03-13, 10:06 PM
كود :
Private Sub MediaBoxScrollBar1_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles MediaBoxScrollBar1.Scroll
ListBox1.AutoScrollOffset = New Point(0, MediaBoxScrollBar1.Value)
MediaBoxScrollBar1.Invalidate()
Application.DoEvents()
Debug.WriteLine("vscroll: " & MediaBoxScrollBar1.Value.ToString() & " custom: " & MediaBoxScrollBar1.Value.ToString())
End Sub