Private Sub cikis_Click()
End
End Sub
Private Sub daire_Click()
mx = Rnd * Form1.ScaleWidth
my = Rnd * Form1.ScaleHeight
For i = 1 To 10
Circle (mx, my), i * 100, , B
Next
End Sub
Private Sub dortgen_Click()
Dim mx, my, i
mx = Rnd * Form1.ScaleWidth
my = Rnd * Form1.ScaleHeight
For i = 10 To 0 Step -1
Line (mx + i * 100, my + i * 100)-(mx - i * 100, my - i * 100), , B
Next
End Sub
Private Sub Form_Load()
ScalaMode = 3 'pixel
Randomize Timer
BackColor = &HFFFFFF 'beyaz
End Sub
Private Sub kirmizi_Click()
Form1.BackColor = vbRed
End Sub
Private Sub mavi_Click()
Form1.BackColor = vbBlue
End Sub