Yine
Olduğu Gibi Forma Yapıştırın..4
Sonra Formda Boş Bi Yere Tıklayın..
Kod:
Sub Form_Click() Dim CX, CY, Radius, Limit ScaleMode = 3 CX = ScaleWidth / 2 CY = ScaleHeight / 2 If CX > CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit Circle (CX, CY), Radius, RGB(Rnd * 100, Rnd * 100, Rnd * 100) Next Radius End Sub

__________________