エラートラップ処理内での、エラーの無視

解決

---

VB6でエラートラップをかけているのですが、そのエラートラップ処理内で起きたエラーを無視したいのですが、そのような事はできますか？
現在はエラートラップ処理内で on error resume nextを呼んでいるのですが、エラーは無視されません。
よろしくお願い致します。

private sub test()
 on error goto error1
   ・
   ・
 exit sub

 error1:
  on error resume next
   ・
   ・
  exit sub
end sub

編集 削除

---

エラートラップ内の処理を関数化してやればできます。
※他にも方法があるのかな？

Private Sub Command1_Click()
On Error GoTo ErrHandle
    Err.Raise 51
    Exit Sub
ErrHandle:
    Debug.Print "ErrHandle通過"
    Call ErrTest
End Sub

Public Sub ErrTest()
On Error Resume Next
    Err.Raise 51
End Sub

編集 削除

---

エラー処理を関数にすれば、いけました。
有難うございました。m(__)m

編集 削除

---

既に解決されているみたいですが・・・。
Clearメソッドでエラーの設定値を初期化する方法もありかも・・・。

※GODさんのプログラムをお借りすると以下の感じです。

Private Sub Command1_Click()
On Error GoTo ErrHandle
    Err.Raise 51
    Exit Sub
ErrHandle:
    Err.Clear
    Debug.Print "ErrHandle通過"
End Sub

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。