file.vb
Private Sub cmdShow_Click()
no = Val(Text1.Text)
For i = 1 To 10 Step 1
List1.AddItem (no &" x " & i & " = " & no * i)
Next
End Sub
Private Sub cmdShow_Click()
no = Val(Text1.Text)
For i = 1 To 10 Step 1
List1.AddItem (no &" x " & i & " = " & no * i)
Next
End Sub