16 lines
248 B
VB.net
16 lines
248 B
VB.net
|
Public Sub Main()
|
||
|
|
Dim c As VBA.Collection
|
||
|
|
|
||
|
|
' initial state: Nothing
|
||
|
|
Debug.Assert c Is Nothing
|
||
|
|
|
||
|
|
' create an instance
|
||
|
|
Set c = New VBA.Collection
|
||
|
|
Debug.Assert Not c Is Nothing
|
||
|
|
|
||
|
|
' release the instance
|
||
|
|
Set c = Nothing
|
||
|
|
Debug.Assert c Is Nothing
|
||
|
|
|
||
|
|
End Sub
|