So  können Sie die Tastenkombination Strg+Alt+Entf deaktivieren.
    Hat allerdings den unschönen Nebeneffekt, dass zusätzlich Alt+Tab
    und Strg+Esc ebenfalls deaktiviert werden !

    Sollten Sie diesen Tipp verwenden wollen,
    um das Beenden über die Taskliste verhindern zu wollen,
    empfehle ich Ihnen hier nachzulesen !

ERFORDERLICHE OBJEKTE

   2 Commandbuttons (Command1, Command2)

FORM-CODE

   Private Declare Function SystemParametersInfo Lib _
      "User32" Alias "SystemParametersInfoA" (ByVal uAction _
      As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
      ByVal fuWinIni As Long) As Long

   Private Sub Strg_Alt_Entf(Status As Boolean)
      Dim x As Long
      x=SystemParametersInfo(97, Status, CStr(1), 0)
   End Sub

   Private Sub Command1_Click()
      'Strg+Alt+Entf deaktivieren
      Call Strg_Alt_Entf(True)
   End Sub

   Sub Command2_Click() 
      'Strg+Alt+Entf aktivieren
      Call Strg_Alt_Entf(False)
   End Sub