A.Private Sub HScroll 1_Change() Print HScroll1.Value End Sub
B.Private Sub HScroll 1_Change() Print HScroll1.SmallChange End Sub
C.Private Sub HScroll1 Scroll() Print HScroll1.Value End Sub
D.Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub