directcastexpression1.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

class DirectCastExpression1
	sub Test
		Dim i as DirectCastExpression1
		dim o as object
		o = i
		i = DIrectCast(o, DirectCastExpression1)
	end sub
End Class