Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
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 
Kod:
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
