vb.net - VB6に.exeを書き込んで、ランタイムエラー「6」を作成します：オーバーフロー

Question

VBランタイムオーバーフローエラーをスローする.exeを作成する必要があります。誰かがこれを行うことができるVB6コードを持っていますか？エラー処理のために特定のシナリオをテストしようとしています。

Answer 1

どうですか：

Dim I As Integer

I = 32767 + 1

Answer 2

Eric J.のリンクに基づく（質問に対する上記のコメントを参照）：

Private Sub Form_Load()
  Dim upsize As Integer
  Dim ns As Integer
  Dim funcTable As Variant

  upsize = 34000
  upsize = 34000
  ReDim Preserve funcTable(0 To upsize + ns)

End Sub