home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD7388732000.psc / SqlFileCopyWorking / modMain.bas < prev    next >
Encoding:
BASIC Source File  |  2000-02-14  |  381 b   |  18 lines
  1. Attribute VB_Name = "modMain"
  2. Option Explicit
  3.  
  4. Public Function SetOn(TabX As SSTab, Index As Integer, FormX As Form)
  5. Dim ii As Integer
  6.  
  7. With TabX
  8.     'Set arrows to grey
  9.     For ii = 0 To .Tabs - 1
  10.         .TabPicture(ii) = FormX.imgOff.Picture
  11.     Next ii
  12.     
  13.     'Set arrow you Yellow
  14.     .TabPicture(Index) = FormX.imgOn.Picture
  15. End With
  16. DoEvents
  17. End Function
  18.