Private Sub Form_click()
  Print
  Print
  Print
  Print
  Print

 FontSize = 12
  For i = 1 To 9
    For j = i To 9

      k = i & "x" & j & "=" & i * j
      Print Tab((j - 1) * 8 + 1); k;
    Next j
    Print
  Next i
 
End Sub