From: mynamehere@comcast.net   
      
   "Randy Birch"  wrote in message   
   news:450753d2$0$9389$c3e8da3@news.astraweb.com...   
   >   
   > Private Function PickCardf(CardSuit As Integer, CardNo As Integer) As   
   > StdPicture   
   >   
   >   Dim CardValue As Integer   
   >   Dim CValue As String   
   >   
   >   CardSuit = Int(Rnd * 4 + 1)   
   >   CardNo = Int(Rnd * 13 + 1)   
   >   CardValue = 100 + (CardSuit - 1) * 13 + CardNo   
   >   CValue = LTrim(Str(CardValue))   
   >   
   >  Set CardPic = LoadPicture("J:\vb\IF\PlayingCardImages\" + CValue + ".gif")   
   >   
   > End Function   
   >   
      
   Oops, I think that last line should be   
      Set PickCardf = LoadPicture("J:\vb\IF\PlayingCardImages\" + CValue + ".gif")   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)