Sub Form_Paint()
Dim I As Integer, X As Integer, Y As Integer Dim C As String Cls For I = 0 To 91 X = CurrentX Y = CurrentY C = Chr(I) 'Line -(X + TextWidth(C), Y = TextHeight(C)), _ QBColor(Rnd * 16), BF CurrentX = X CurrentY = Y ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Print "Hello World Hello World Hello World Hello" Next End Sub |