Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
Dim sngHorizontal As Single
Dim sngVertical As Single
Dim sngRadius As Single
sngHorizontal = Me.ScaleWidth / 1.5
sngVertical = Me.ScaleHeight / 3.5
sngRadius = Me.ScaleHeight / 1.3
Me.DrawWidth = 2
Me.Circle (sngHorizontal, sngVertical), sngRadius, vbRed, , , 0.3
End Sub
ile raporda elips çiziliyor
ama ben formdaki image nesnesinde elips çizmek istiyorum
nasıl yapabilirim

@benbendedeilem
Son Düzenleme: 05/02/2010, 02:20, Düzenleyen: accessman.