I thought you had it, but no. It found something else to complain about.
Public Sub VCircle(p0 As Objpt, Radius As Single, Color As Long)
Dim P As Objpt
Dim Angle As Single 'current Angle
For Angle = 0 To 360 Step 10
PolarToCartesian Radius, Angle, P...
I'm trying to implement
type objpt
x as single
Y as single
end type
Here is my class
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.