Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Show
Dim i, k, x, y, x1, y1
x = 100 'yazı kontrolu
y = 100
k = "Haqan & AdeLHard"
FontName = "Comic Sans MS"
FontSize = 40
For i = 1 To 15
x1 = x + 10 * i
y1 = y + 10 * i
ForeColor = QBColor(i)
CurrentX = x1
CurrentY = y1
Print k
Next
End Sub
End
End Sub
Private Sub Form_Load()
Show
Dim i, k, x, y, x1, y1
x = 100 'yazı kontrolu
y = 100
k = "Haqan & AdeLHard"
FontName = "Comic Sans MS"
FontSize = 40
For i = 1 To 15
x1 = x + 10 * i
y1 = y + 10 * i
ForeColor = QBColor(i)
CurrentX = x1
CurrentY = y1
Print k
Next
End Sub