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 Command1_Click()
      'deaktivieren
      Call SystemParametersInfo(&H11, False, 0&, 0&)
   End Sub

   Private Sub Command2_Click()
      'aktivieren
      Call SystemParametersInfo(&H11, True, 0&, 0&)
   End Sub

   Private Sub Form_Load()
      Caption = "Bildschirmschoner aktivieren/deaktivieren"
      Command1.Caption = "Deaktivieren"
      Command2.Caption = "Aktivieren"
   End Sub