Module modMain
 
    <Runtime.InteropServices.DllImport("user32", _
      CallingConvention:=Runtime.InteropServices.CallingConvention.Winapi, _
      EntryPoint:="ShowWindow")> Function HideMe(ByVal mWindow As Int32, _
      ByVal mFlag As Int32) As Int32
    End Function
 
    Sub Main()
        Dim this As IntPtr = Process.GetCurrentProcess().MainWindowHandle
        Call HideMe(this.ToInt32, False)
        Console.Read()
    End Sub
 
End Module

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com