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