Aşşağıda Vereceğim Kodları oLduğu gibi Form_Load icine COPY_PASTE yapmanız kafi ...

Private Sub Form_Load()
Show
Dim k, i, x1, y1
k = "Kendiniz Doldurun"
FontName = "times new roman"
FontSize = 15
For i = 1 To 135
x1 = ScaleWidth / 2 + 30 * i * Cos(i * 0.1)
y1 = ScaleHeight / 3 + 30 * i * Sin(i * 0.1)
ForeColor = QBColor(i Mod 16)
CurrentX = x1
CurrentY = y1
Print k
Next
End Sub

KENDİNİZE GORE DEĞİŞTİRİNİZ
__________________