Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How can I lock the screen?

API

How can I lock the screen?

by  Michael42  Posted    (Edited  )
'' Place in Declarations Section

'To lock the screen update temporarily
Declare Function LockWindowUpdate Lib "User" (ByVal hWndLock As Integer) As Integer
Declare Function GetDesktopWindow Lib "User" () As Integer

''From Within Program

'Lock Screen = = = = = = = = = = = = = = = = = =
Dim l as Integer
Screen.MousePointer = HOURGLASS
l% = LockWindowUpdate(GetDesktopWindow())

...Process Here

'Unlock Screen = = = = = = = = = = = = = = = = =
Screen.MousePointer = DEFAULT
l% = LockWindowUpdate(0)

Register to add this FAQ to your archive
Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top