home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
focus001
/
foc001g.bas
< prev
next >
Wrap
BASIC Source File
|
1992-05-04
|
218b
|
9 lines
Global ngVerifyOK As Integer
Global ngCtlFocusID As Integer
Global ngCurrValue As Integer
Global ngCurrIndex As Integer
Global Const TRUE = -1
Global Const FALSE = 0
Global Const MSG_STOP_OK = 17 ' STOP + OK