by Rajesh Yadav (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 13th May 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Draw a simple circle using VB
API Declarations
Private Sub Form_Click()
Line (a, b)-(c, d)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
c = X
d = Y
End Sub
Private Sub Form_Click()
Circle (a, b), 1000
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
End Sub