Option Explicit
 
'Api-Funktionen
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
     ByVal hwnd As Long, _
     ByVal nIndex As Long, _
     ByVal dwNewLong As Long) As Long
 
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _
     ByVal lpPrevWndFunc As Long, _
     ByVal hwnd As Long, _
     ByVal msg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
 
 
 
Public Const GWL_WNDPROC = (-4&)
Public PrevWndProc As Long
 
'Nachrichtenkonstanten
Private Const VK_F5 As Long = &H74
Private Const WM_KEYDOWN As Long = &H100
 
 
 
Public Sub Init(hwnd As Long)
  PrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, _
                              AddressOf SubWndProc)
End Sub
 
 
Public Sub Terminate(hwnd As Long)
  Call SetWindowLong(hwnd, GWL_WNDPROC, PrevWndProc)
End Sub
 
 
Private Function SubWndProc(ByVal hwnd As Long, _
                            ByVal msg As Long, _
                            ByVal wParam As Long, _
                            ByVal lParam As Long) As Long
 
'Hier die Nachrichten rausziehen
If (msg = WM_KEYDOWN) And (wParam = VK_F5) Then Exit Sub
 
 
'Die übrigen Nachrichten an die originale Funktion weiterleiten
SubWndProc = CallWindowProc(PrevWndProc, hwnd, msg, _
                              wParam, lParam)
End Function

Private Sub Form_Load()
Init NameDesControls.hwnd
 
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Terminate NameDesControls.hwnd
 
End Sub