error handle

[Dayo312]

Im trying to open a file in a res file thats
it not there because I want my program to
handle the error with out getting a fatal
error, I want the program to just go on.
Whats Wrong With This CODE?

 
Public Sub LoadRndPic(rndnum As Integer)
Dim arrByte() As Byte
Dim IFFN As Integer
Dim strTempPath As String
   On Error GoTo ErrorHandler   ' Enable error-handling routine.
   On Error GoTo 0   ' Turn off error trapping.
   On Error Resume Next   ' Defer error trapping.
arrByte = LoadResData(rndnum, "Custom")
strTempPath = App.Path & "\Loading.jpg"
IFFN = FreeFile
Open strTempPath For Binary As IFFN
Put #IFFN, , arrByte
Close #IFFN
Form1.Picture1.Picture = LoadPicture(strTempPath)
Kill strTempPath
Exit Sub      ' Exit to avoid handler.
ErrorHandler:   ' Error-handling routine.
   Select Case Err.Number   ' Evaluate error number.
      Case 326   ' "Res Index not there" error.
      Exit Sub
   End Select
End Sub

[Edited by Dayo312 on 06-06-2000 at 06:38 PM]

I think it's because you have 3 On Error... statements. How can you go to ErrorHandler and then go to 0? Try erasing 2 of the statements and only keeping the one you need most.

[kedaman]

Meg, is right, erase the resume next and goto 0, if you want your errorhandler to do it's work.