15 lines
248 B
VB.net
15 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
|