SoloCodigo

Saludos a todos, bueno pues mi problema es que no puede hacer un programa que me muestre las tablas multiplicar una por una hasta la del 10 usando timer y para colmo cuanto termine con un command button tengo que hacer que se limpie la pantalla, mi codigo para una tabla es este:

Private Sub Command1_Click()
A = Text1
For I = 1 To 10
B = A * I
Print "                   "; A; "*", I, "=", B
Next I
End Sub

Como le hago para que me muestre las tablas? y para limpiar la pantalla con un command button? Gracias por su atencion