| 1. Standart EXE projesi baslat
2. Asagidaki kodu Form`un Paint proc`una yaz:
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
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |
