筛好米磨成粉的读音:请帮忙写一个加水印的。net程序

Private Sub cmdLockWorkstation_Click()
Dim prev_value As Long
Dim wid As Long
Dim hgt As Long

cmdLockWorkstation.Enabled = False
cmdUnlockWorkstation.Enabled = True
cmdExit.Enabled = False

' Save the current size and position.
m_LastLeft = Left
m_LastTop = Top
m_LastWidth = Width
m_LastHeight = Height

' Put the form on top of everything including
' the task bar.
wid = Screen.Width / Screen.TwipsPerPixelX
hgt = Screen.Height / Screen.TwipsPerPixelY
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, wid, hgt, 0

' Tell the system a screen saver is running.
SystemParametersInfo SPI_SCREENSAVERRUNNING, True, _
prev_value, 0
End Sub

To unlock the workstation, the program uses SystemParametersInfo to tell the system that no screen saver is running.

Private Sub cmdUnlockWorkstation_Click()
Dim prev_value As Long

cmdLockWorkstation.Enabled = True
cmdUnlockWorkstation.Enabled = False
cmdExit.Enabled = True

' Restore the size and position.
Move m_LastLeft, m_LastTop, m_LastWidth, m_LastHeight

' Tell the system no screen saver is running.
SystemParametersInfo SPI_SCREENSAVERRUNNING, False, _
prev_value, 0
End Sub