A.Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Captio*Val(Label2.Captio) End Sub B.Private Sub Command1_Click() Label3.Caption=HScrollValue*HScroll2.Value End Sub C.Private Sub Commandl_click() Label3.Caption=HScrolll*HScroll2 End Sub D.Private Sub Command1_Click() Label3.Caption=HScrollText*HScroll2.Text End Sub