Lingkaran dalam Visual Basic dapat dibuat dengan menggunakan perintah:
Circle(x,y), Radius, Warna
Contoh 1:
[sourcecode]</pre>
Private Sub Form_Paint()
Circle (1500, 1500), 1000, vbRed
End Sub
[/sourcecode]
akan menghasilkan sebuah lingkaran dengan warna merah.
contoh 2:
[sourcecode]</pre>
Private Sub Form_Paint()
Const PI = 3.141592
FillStyle = vbFSSolid
FillColor = vbBlue
Circle (ScaleWidth / 2 + 200, ScaleHeight / 2 – 200), 1500, vbBlack, -(PI * 2), -(PI / 2)
FillColor = vbCyan
Circle (ScaleWidth / 2, ScaleHeight / 2), 1500, vbBlack, -(PI / 2), -(PI * 2)
End Sub
<pre>[/sourcecode]
akan menghasilkan gambar seperti dibawah ini.
Demikian semoga bermanfaat.
— Rohmadi —
Sumber: Buku Panduan Bahasa Pemrograman Windows dan Internet Microsoft Visual Basic 6.0
karya Mico Pardosi