CreateObject Function
αααααΎαβααααα» UNO αα½αΒ α αα βααΎβααΈαααΌ ααβα’αΆα βαααααΎαααααα» OLE ααΆααααΒ α
αααααΎαβααΆαβα ααβαααααβα―αααΆαβαααααΆααβα―αααΆαβααα
ααΆαααβααααααα α
oObj = CreateObject( type )
α§ααΆα ααα α
Type address
Name1 As String
City As String
End Type
Sub main
myaddress = CreateObject("address")
MsgBox IsObject(myaddress)
End Sub