CreateObject Function
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° UNO. Π Windows ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ OLE-ΠΎΠ±ΡΠ΅ΠΊΡΡ.
ΠΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΡΠ»ΡΠΆΠΈΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠΎΠ² ΡΠΈΠΏΠ°, ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°Π΅ΠΌΠΎΠ³ΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
oObj = CreateObject( ΡΠΈΠΏ )
ΠΡΠΈΠΌΠ΅Ρ:
Type address
Name1 As String
City As String
End Type
Sub main
myaddress = CreateObject("address")
MsgBox IsObject(myaddress)
End Sub