From: nobody@fiktief.com   
      
   set grid1.cellpicture = nothing   
      
   greets John   
      
   "rv daffin"  schreef in bericht   
   news:yjJrd.6191$u81.2214@newsread3.news.pas.earthlink.net...   
   > I used "set grid1.cellpicture = img1.picture   
   > I've found the fastest way to clear the grid totally is by using -   
   > grid1.clear and then re-doing the header routine.   
   > thanks again   
   > --   
   > Dink  -  There are 10 kinds of people in the world... those that know   
   binary   
   > and those that don't.   
   > "Rick Rothstein"  wrote in message   
   > news:1K6dnTwIAtNa1jLcRVn-2A@comcast.com...   
   > > Interesting question... I don't use the MSFlexGrid myself, so I don't   
   > > know off the top of my head. How did you put the pictures into the   
   > > cells?   
   > >   
   > > Rick - MVP   
   > >   
   > >   
   > > "rv daffin"  wrote in message   
   > > news:DDGrd.10242$NU3.9247@newsread1.news.pas.earthlink.net...   
   > > > Rick - thanks this clears the text fine, however I have 2 cols that   
   > > also   
   > > > include a picture. What method will clear the pics as well.   
   > > > thanks once again.   
   > > >   
   > > > --   
   > > > Dink  -  There are 10 kinds of people in the world... those that know   
   > > binary   
   > > > and those that don't.   
   > > > "Rick Rothstein"  wrote in message   
   > > > news:3pqdnXaLCNxtADPcRVn-qw@comcast.com...   
   > > > > > I need to clear the grid between updates without clearing   
   > > > > > the header row. What is the speediest way to do this?   
   > > > >   
   > > > > What about a subroutine along these lines?   
   > > > >   
   > > > > Sub ClearAllExceptHeaderRow()   
   > > > >   Dim CurrentRow As Long   
   > > > >   Dim CurrentCol As Long   
   > > > >   Dim CurrentRepeatStyle As Long   
   > > > >   With MSFlexGrid1   
   > > > >     CurrentRow = .Row   
   > > > >     CurrentCol = .Col   
   > > > >     CurrentRepeatStyle = .FillStyle   
   > > > >     .FillStyle = flexFillRepeat   
   > > > >     .Row = 1   
   > > > >     .Col = 0   
   > > > >     .RowSel = .Rows - 1   
   > > > >     .ColSel = .Cols - 1   
   > > > >     .Text = ""   
   > > > >     .Row = CurrentRow   
   > > > >     .Col = CurrentCol   
   > > > >     .FillStyle = CurrentRepeatStyle   
   > > > >     .SetFocus   
   > > > >   End With   
   > > > > End Sub   
   > > > >   
   > > > > Rick - MVP   
   > > >   
   > > >   
   > >   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)