CreateObject Function

oObj = CreateObject( type )

Type address

    Name1 As String

    City As String

End Type

Sub main

    myaddress = CreateObject("address")

    MsgBox IsObject(myaddress)

End Sub