Public Class Form1
 
    Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal _
      nCmdShow As Int32) As Int32
 
    Private Const SW_SHOWNOACTIVATE As Int32 = 4 'Zeigt das Fenster an ohne es 
    ' zu aktivieren
 
    Private f As Class1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        f = New Class1
 
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        ShowWindow(f.Handle, SW_SHOWNOACTIVATE)
    End Sub
End Class