CreateObject Function

UNOрд╡рд╕реНрддреБ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН

рдпреЛ рддрд░реАрдХрд╛рд▓реЗ рдкреНрд░рдХрд╛рд░рдХреЛ рдкрд░рд╛рдорд┐рд░рддрд┐рдХреЛ рд░реВрдкрдорд╛ рдкрд╛рд╕ рдЧрд░реЗрдХрд╛ рджреГрд╖реНрдЯрд╛рдиреНрддрд╣рд░реВ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

oObj = CreateObject( type )

рдЙрджрд╛рд╣рд░рдг:

Type address

    Name1 As String

    City As String

End Type

 

Sub main

    myaddress = CreateObject("address")

    MsgBox IsObject(myaddress)

End Sub