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为甚么都打印在以列里呢

因为你的窗体宽度不够两个或两个以上的 visual basic 6.0 长度(肉眼看似乎可以，其实不是)，你可以把窗体拉宽之后再试。