Class mynativewindow
        Inherits System.Windows.Forms.NativeWindow
        Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            ' windows messages für minimieren etc abfangen und entsprechend 
            ' reagieren ...
            MyBase.WndProc(m)
        End Sub
    End Class
 
    Private window As mynativewindow
 
    Sub Main()
        Dim consolehandle As IntPtr = IntPtr.Zero ' hier musst du das handle 
        ' des fensters ermitteln ...
        window = mynativewindow.FromHandle(consolehandle) ' nun kann die klasse 
        ' mynativewindow entsprechend reagieren ...
    End Sub