Need Step-by-Step Help: How to Draw circle in ArcMap using ArcObjects..

Hello friends,


I am working on ArcGIS 9. I am learning ArcObjects and facing problem
in drawing a circle in ArcMap. My requirement is that through user form

I am getting Lat-Long values and Radius of circle, but it is not able
to draw it. I am pasting my code alongwith my message so that you will
be definitely understand where I am mistaken.


'Following code is pasted in commandbutton_click
'Function to create circle element in arcmap document


Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pScreen As IScreenDisplay
Set pScreen = pMxDoc.ActiveView.ScreenDispla­y


Dim pCircularArc As IConstructCircularArc
Dim CentrePt As IPoint
Set CentrePt = New Point
CentrePt.PutCoords Val(txtLong.Text), Val(txtLat.Text)
CentrePt.PutCoords 400, 500
CentrePt.X = 400
CentrePt.Y = 500


Set pCircularArc = New CircularArc
pCircularArc.ConstructCircle CentrePt, Val(txtRad.Text), True
pCircularArc.ConstructCircle CentrePt, 50, True