Private Sub Form_Click()
ScaleMode = 1 ' Ölçü sistemini piksele çevir
CX = ScaleWidth / 2 ' Formun dikey ortasını bul
CY = ScaleHeight / 2 ' Formun yatay ortasını bul
DrawWidth = 3 ' Çizim genişliğini ayarla
r = 100
For I = 50 To 0 Step -1
F = I / 50
F1 = 1 - F: F2 = 1 + F ' Hesaplamalar...
r = r + 10: b = b + 10
If b > 50 Then g = g + 5
ForeColor = RGB(r, g, b) ' Önalan rengini belirle
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
End Sub