' obsolete.vb Imports System Public Class MyUsefulClass _ Public Sub MyMethod() ' 元のメソッド End Sub Public Sub MyNewMethod() ' 新しいメソッド End Sub End Class _ Public Class MyGodClass ' もはや使えないクラス End Class Public Class Test Shared Sub Main() Dim mc As New MyUsefulClass() mc.MyMethod() mc.MyNewMethod() Dim mgc As MyGodClass Dim tcp As New System.Net.Sockets.TcpListener(80) End Sub End Class ' コンパイル方法:vbc /r:System.dll obsolete.vb