Interface MyInterface
	Function MyFunction() As Long
End Interface

Class MyClass
	myInstance As MyInterface  'エラーにならない
Public
	Sub MyClass()
		myInstance.MyFunction()
	End Sub

	Sub ~MyClass()
	End Sub
End Class

Dim MyInstance_1 As MyClass

'Dim MyInstance_2 As MyInterface　これはエラーになる