Private Declare Function SystemParametersInfo Lib "user32" Alias _
      "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As _
      Integer, ByRef lpvParam As Integer, ByVal fuWinIni As Integer) As Integer
    Private Const SPI_SCREENSAVERRUNNING As Short = 97
 
	Private Sub cmdDisable_Click(ByVal eventSender As System.Object, ByVal _
  eventArgs As System.EventArgs) Handles cmdDisable.Click
		SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, 1, 0)
	End Sub
 
	Private Sub cmdEnable_Click(ByVal eventSender As System.Object, ByVal _
  eventArgs As System.EventArgs) Handles cmdEnable.Click
		SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, 1, 0)
	End Sub

mfgMeik MillerMein beste Code:If then