bu çizgi çekiyor

Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Dim sngMidPt As Single, intI As Integer
' Set scale to pixels.
Me.ScaleMode = 3
' Calculate midpoint.
sngMidPt = Me.ScaleHeight / 2
' Loop to draw line down horizontal axis pixel by pixel.
For intI = 1 To Me.ScaleWidth
Me.PSet(intI, sngMidPt)
Next intI
End Sub

benim amacım
formda ayrıntı üstünde elips çizmek
ve
mouse sol tuş basılı tutarak ayrıntı üzerinde gezerken nokta koymak