>>10
お任せ下さい For VB6

sub hoge()
On error Resume Next
end sub

For etc

Try
hoge()
Catch
//隠蔽・・・。
End Try