Maths Table Prinitng :



Source code:

'' Global declaration.
Dim num As Integer
'' This code is for print the table.
Private Sub Command1_Click()
num = Text1.Text
List1.AddItem "Table of " & num
List1.AddItem "----------------"
For i = 1 To 10
List1.AddItem num & " * " & i & " = " & i * num
Next i
End Sub

'' This code is to clear the list.
Private Sub Command2_Click()
List1.Clear
End Sub

'' This code is to clear the textbox value.
Private Sub Command3_Click()
Text1.Text = ""
End Sub