Dim mUIV Set mUIV = CreateObject("UIView32.clsUIV") Dim myObject Set myObject = CreateObject("UIView32.clsObject") myObject.strIdent = "TEST" myObject.sngLat = 52.6825 myObject.sngLong = -2.5 myObject.strComment = "Test Object" myObject.strSymbol = "m" myObject.strTableChar = "\" myObject.intCourse = 90 myObject.intSpeed = 60 myObject.blnAutoUpdate = False mUIV.CreateObject(myObject)