3DGraphix

' Dichiarazioni API

'

Declare Function Ellipse Lib "gdi32" Alias "Ellipse" (ByVal hdc As Long, _
ByVal X1 As Long,ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'

' Routine

'

For i = 1 To 676 'Modifica a seconda del Form
Call Ellipse(Me.hdc, Me.CurrentX, Me.CurrentY, i, i)
Print i
Next
'

' Dichiarazioni API

'

Declare Function Ellipse Lib "gdi32" Alias "Ellipse" (ByVal hdc As Long, _
ByVal X1 As Long,ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'

' Routine

'

For i = 1 To 676 'Modifica a seconda del Form
Call Ellipse(Me.hdc, Me.CurrentX, Me.CurrentY, i, i)
Print i
Next