Hide Window [ By : Security.Najaf ]

Public Class Form1

    '-----------------------------------------
    '>> C0DED BY : S4CUR1TY.N4JAF
    '-----------------------------------------

    '>> Get Handle Any Window
    Declare Function GetForegroundWindow _
        Lib "user32" Alias "GetForegroundWindow" () As Integer
    '>> Get Any KeyState
    Private Declare Function GetKeyPress _
        Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer
    '>> Hide Any Window
    Private Declare Function CloseWindow _
        Lib "user32" (ByVal Hwnd As IntPtr) As Boolean
    '--------------------------------------------------------------------------------------
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        '>> Get Handle
        TextBox1.Text = GetForegroundWindow
        '>> Hide Window Using Handle
        CloseWindow(TextBox1.Text)
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '>> Hide Application
        Me.Hide()
    End Sub
    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        '>> If Click Key "F" ,, Me End : )
        If GetKeyPress(Keys.F9) Then
            End
        End If
    End Sub
End Class