From: jamie@noway.com   
      
   Sparky AKA_Sparkticus wrote:   
   > 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   
   >   
   >   
      
   Hi Sparky,   
      
   You could place the animations in the same folder as the application   
   then you could use:   
      
   Image3.Picture = LoadPicture(App.Path + "\\GifName.gif")   
      
   Jamie   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)