OutOfMemoryExceptionテスト

OutOfMemoryExceptionのテストを行うためわざと発生させるお手軽な方法。
Long型の配列を作成する。

Try
     Dim longs(100000000) As Long 'DEBUGコード
Catch ex As OutOfMemoryException
    MsgBox("メモリが不足しています。再起動してください。")
　　System.GC.Collect()               'ガベージコレクションを明示的に発生
End Try