Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
    Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr, ByVal _
      wMsg As  _
  Int32, _
                                  ByVal wParam As Int32, ByVal lParam As Int32) _
                                  As Int32
    Dim WithEvents Btn1 As New Button With {.Dock = DockStyle.Bottom, .Text = _
      "Start", .Parent = Me}
    Const WM_SYSCOMMAND As Int32 = &H112&
    Const SC_SCREENSAVE As Int32 = &HF140&
 
    Private Sub Btn1_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Btn1.MouseDown
        SendMessage(Me.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0) 'Ein
        Threading.Thread.Sleep(3000)                    '3 Sek Pause
        SendKeys.Send(Keys.Space)                       ' Aus
 
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
 
    End Sub
    Dim n As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        n += 1
        Label1.Text = n
 
        If n >= 70 Then
            Me.Focus()
            Threading.Thread.Sleep(3000)
            SendKeys.Send(Keys.Space)
 
        End If
    End Sub