Asagidaki kodu Form'un Paint proc'una yapıştır :
Projeyi çalistirirsaniz formun degisik renklerde yaziyla kaplandigini görürsünüz.
Kod:
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 "| JuNiOuR_M4Ny4k |"
Next
End SubProjeyi çalistirirsaniz formun degisik renklerde yaziyla kaplandigini görürsünüz.
