[VB 2010] Me.Hide() Timer

Guten Tag epvp,
hab ein Problem undzwar,
m�chte ich wenn die Form sich �ffnet, das Sie sich nach paar Sekunden, sich minimiert und wieder maximiert.
Kein Problem.

Deshalb mache ich bei Form_Load:

Starter.Start()

Und in dem Timer ist folgendes:

Me.Hide()
Me.Show()
Starter.Stop()

Stoppen ist weil es sich dann die ganze Zeit minimiert und maximiert.

Timer:

Enabled = False
Interval = 18000 (18 Sekunden)

Nun habe ich hier ein Befehl:

Case Keys.Delete
Me.Hide()
Case Keys.Insert
Me.Show()

Das Problem ist jetzt das diese nicht ausgef�hrt werden, denn:

Wenn ich eines der Tasten dr�cke passiert es aber es wird dann wieder angezeigt.

Ich glaube das hat was mit dem Timer zutun aber ich wei� nicht was.

Habe sowas hier:

Spoiler

Code:

Imports System.Runtime.InteropServices
Public Class WolfSeedD3D
#Region "Hook"

    Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Integer, _
    ByVal dwExtraInfo As Integer)

    Private Const KEYEVENTF_KEYUP = &H2

    Private Delegate Function HOOKPROCDelegate( _
    ByVal nCode As Integer, _
    ByVal wParam As IntPtr, _
    ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr


    Private HookProc As New HOOKPROCDelegate(AddressOf KeyboardHookProc)

    Private Declare Unicode Function GetModuleHandleW Lib "kernel32.dll" ( _
    ByVal lpModuleName As IntPtr) As IntPtr


    Private Declare Unicode Function SetWindowsHookExW Lib "user32.dll" ( _
    ByVal idHook As Integer, _
    ByVal lpfn As HOOKPROCDelegate, _
    ByVal hMod As IntPtr, _
    ByVal dwThreadId As UInteger) As IntPtr

    ' F�r das L�schen des Hooks wird diese Funktion verwendet:
    Private Declare Unicode Function UnhookWindowsHookEx Lib "user32.dll" ( _
    ByVal hhk As IntPtr) As UInteger

    Private Declare Unicode Function CallNextHookEx Lib "user32.dll" ( _
    ByVal hhk As IntPtr, _
    ByVal nCode As Integer, _
    ByVal wParam As IntPtr, _
    ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr

    Private Const WM_KEYDOWN As Int32 = &H100    ' Konstante f�r WM_KEYDOWN
    Private Const WM_KEYUP As Int32 = &H101      ' Konstante f�r WM_KEYUP
    Private Const HC_ACTION As Integer = 0       ' Konstante f�r HC_ACTION
    Private Const WH_KEYBOARD_LL As Integer = 13 ' Konstante f�r WH_KEYBOARD_LL

    Public PrevWndProc As Integer
    Private mHandle As IntPtr

    <StructLayout(LayoutKind.Sequential)> Public Structure KBDLLHOOKSTRUCT
        Public vkCode As Keys
        Public scanCode, flags, time, dwExtraInfo As UInteger

        Public Sub New(ByVal key As Keys, _
        ByVal scancod As UInteger, _
        ByVal flagss As UInteger, _
        ByVal zeit As UInteger, _
        ByVal extra As UInteger)

            vkCode = key
            scanCode = scancod
            flags = flagss
            time = zeit
            dwExtraInfo = extra
        End Sub
    End Structure


    Public Property KeyHookEnable() As Boolean
        Get
            Return mHandle <> IntPtr.Zero
        End Get
        Set(ByVal value As Boolean)
            If KeyHookEnable = value Then Return
            If value Then
                mHandle = SetWindowsHookExW(WH_KEYBOARD_LL, HookProc, _
                  GetModuleHandleW(IntPtr.Zero), 0)
            Else
                UnhookWindowsHookEx(mHandle)
                mHandle = IntPtr.Zero
            End If
        End Set
    End Property


    Private Function KeyboardHookProc(ByVal nCode As Integer, _
    ByVal wParam As IntPtr, _
    ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr

        Dim fEatKeyStroke As Boolean

        If nCode = HC_ACTION Then

            fEatKeyStroke = Hook(lParam.vkCode)



            If fEatKeyStroke Then
                Return New IntPtr(1)
                Exit Function
            End If

            Return CallNextHookEx(mHandle, nCode, wParam, lParam)
        End If
    End Function

#End Region







    Dim DoubleHookProtect As Short = 1
    Private Function Hook(ByVal keyCode As Integer)


        If DoubleHookProtect = 1 Then
            DoubleHookProtect = 2
        Else
            DoubleHookProtect = 1
            Return False
        End If