From: Antispam_wanw34397_2@blueyonder.co.uk   
      
   I have a project with several animations in.   
   is their a way to set the file location other then retype the location on   
   the project every time i move the folder   
      
   Private Sub Timer1_Timer()   
   On Error GoTo errhand   
   Static i As Integer   
   ' this is the line giving me trouble   
   Image3.Picture = LoadPicture("C:\My Documents\math Project v1\Images\image"   
   & i + 1 & ".gif")   
      
   i = i + 1   
   If i > 4 Then i = 0   
   Exit Sub   
   errhand:   
   MsgBox Err.Number & " " & Err.Description, vbDefaultButton1, "Error Message"   
   End Sub   
      
   Sparky   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)