home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD755.psc / status.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-13  |  236 b   |  7 lines
  1. Attribute VB_Name = "status"
  2. Sub update_status(message As String)
  3. 'this updates the status window with any new messages
  4. main.status.AddItem "[" & f_time & "] " & message
  5. main.status.ListIndex = (main.status.ListCount - 1)
  6. End Sub
  7.