A.Private Sub Hscroll1_Change( ) Text1.Text=Hscroll1.Value End Sub B.Private Sub Hscroll1_Click( ) Text1.Text=Hscroll1.Value End Sub C.Private Sub Hscroll1_Change( ) Text1.Text=Hscroll1.Caption End Sub D.Private Sub Hscroll1_Click( ) Text1.Text=Hscroll1.Caption End Sub