Renkli Daireler Çizelim

[ßyMesMes]

Forma Hiç Bişe Eklemeye Gerek Yok Fodlaraı Forma Yapıstır F5 bas cıkan sayfaya fare sol tusuyla tıkla beyenmedınmı bır keredaha tıkla

Private Sub Form_Click()
Dim CX, CY, Limit, Msg, Radius ' Değişkenleri tanımla
ScaleMode = 3 ' Ölçeği piksel olarak tanımla
AutoRedraw = -1 ' AutoRedraw özelliğini aç.
Width = Height ' Yüksekliği genişliğe eşitle
CX = ScaleWidth / 2 ' X posizyonunu ayarla
CY = ScaleHeight / 2
Limit = CX
For Radius = 0 To Limit
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents
Next Radius
End Sub

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.

 

[ßyMesMes]

Rica ederim.

 

[cixcocuk97]

Teşekkür Ederim