![]() |
#2
qq10235692232016-03-02 16:33
|
Sub fact(str As String)
While Len(str) > Form2.Width / 90
Print Left(str, Form2.Width / 90 - 1)
str = Mid(str, Form2.Width / 90 - 1)
Wend
End Sub