Lingkaran dalam Visual Basic dapat dibuat dengan menggunakan perintah:

Circle(x,y), Radius, Warna

Contoh 1:

Private Sub Form_Paint()
 Circle (1500, 1500), 1000, vbRed
 End Sub

circle 1

akan menghasilkan sebuah lingkaran dengan warna merah.

contoh 2:

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

akan menghasilkan gambar seperti dibawah ini.

circle 2

Demikian semoga bermanfaat.

— Rohmadi —

Sumber: Buku Panduan Bahasa Pemrograman Windows dan Internet Microsoft Visual Basic 6.0

karya Mico Pardosi