Dim sample As String * 26
Sub widthcheck()
If (TextWidth(sample) + CurrentX) >= ScaleWidth Then
   Print
End If
End Sub
Private Sub Form_click()
FontSize = 12
sample = "visual basic 6.0"
For i = 1 To 20
  widthcheck
  Print sample;
Next i
End Sub
运行结果visual basic 6.0为甚么都打印在以列里呢