A.
Private Sub Hscroll1_Change()Text1.Text=HScroll1.ValueEnd Sub
B.
Private Sub Hscroll1_Click()Text1.Text=HScroll1.ValueEnd Sub
C.
Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd Sub
D.
Private Sub Hscroll1_Click()Text1.Text=Hscroll1.CaptionEnd Sub