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