home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD102339282000.psc / modMain.bas < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  307 b   |  8 lines
  1. Attribute VB_Name = "modMain"
  2. Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  3.  
  4. Public Function RndRange(ByVal Min As Single, ByVal Max As Single) As Single
  5. 'This Function Generates a Random number between 2 numbers.
  6. RndRange = (Rnd * (Max - Min + 1)) + Min
  7. End Function
  8.