home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_3_94
/
vbwin
/
tricks
/
undo.bas
< prev
next >
Wrap
BASIC Source File
|
1994-05-24
|
300b
|
9 lines
Declare Function SendMessage& Lib "User" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, lParam As Any)
Declare Function GetFocus% Lib "User" ()
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23
Global Const EM_CANUNDO = WM_USER + 22
Global Const EM_EMPTYUNDOBUFFER = WM_USER + 29