Запрет сворачивания формы, в том числе и с помощью горячих клавиш

Private Sub Timer2_Timer()
If Form1.WindowState <> 0 Then Form1.WindowState = 0 Or Timer1.Enabled = True
 
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
           
        
End Sub

AppActivate ("Key Spy")

Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Type WINDOWPLACEMENT
    Length As Long
    flags As Long
    showCmd As Long
    ptMinPosition As POINTAPI
    ptMaxPosition As POINTAPI
    rcNormalPosition As RECT
End Type
 
Public Const VK_D = &H44
Public Const VK_LWIN = &H5B
Public Const SW_MINIMIZE = 6, SW_NORMAL = 1, SW_MAXIMIZE = 3, SW_RESTORE = 9
Public Const Form_H = 3600, Form_W = 4800
 
Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
 
 
Function GetPressedKey() As String
     If GetAsyncKeyState(VK_LWIN) = -32768 And GetAsyncKeyState(VK_D) = -32768 Then
            GetPressedKey = 1
       End If
End Function
 
 
Sub TimerProc(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    ret = GetPressedKey
    If ret = 1 Then
      MsgBox "WIN+D", vbSystemModal
    End If
 
    If Form1.WindowState <> 0 Then
      ret = 0
      Do While ret = 0
          Form1.WindowState = 0
          ret = AppToForeground(Form1.hWnd, SW_NORMAL)
      Loop
    End If
End Sub
 
 
Function AppToForeground(lHwnd As Long, lWindowState As Long) As Long
    Dim tWinPlace As WINDOWPLACEMENT
 
    tWinPlace.Length = Len(tWinPlace)
    'Get the windows current placement
    Call GetWindowPlacement(lHwnd, tWinPlace)
    'Set the windows placement
    tWinPlace.showCmd = lWindowState
    'Change window state
    Call SetWindowPlacement(lHwnd, tWinPlace)
    'Активация окна
    AppActivate ("Key Spy")
    'Светим окно
    Call ShowWindow(Form1.hWnd, SW_NORMAL)
    'Bring to foreground
    AppToForeground = SetForegroundWindow(lHwnd)
    Form1.Height = Form_H
    Form1.Width = Form_W
End Function