Dim a, n, i As Integer Private Sub Command1_Click() n = Val(Text1.Text) For i = 1 To 10 a = n * i List1.AddItem n & "*" & i & " = " & a Next i End Sub