البته حتما باید سریع به حالت قبل برگردونید چون موندن این حالت زیاد جالب نیست
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
حالا دو تا کامند به فرم اضافه کنید به اسم های Desabled و Enabled
کد دکمه غیر فعال کردن
Private Sub Disabled_Click()
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
کد فعال سازی این کلید ها بهتر است این کدها را در Unload فرم نیز فراخوانی کنید
Private Sub EnableD_Click()
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub
