Private Sub Command1_Click()
Dim i, n As Integer
n = 12
List1.List(0) = "multiply"
i = 1
Do While i <= n
List1.AddItem (i & " x " & n & vbTab & "=" & i * n)
i = i + 1
Loop
End Sub