Public Class Form1
 
     Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As _
       IntPtr, ByVal hWndInsertAfter As Int32, ByVal x As Int32, ByVal y As _
       Int32, ByVal cx As Int32, ByVal cy As Int32, ByVal wFlags As Int32) As _
       Int32
 
    Private Const SWP_NOMOVE As Int32 = &H2
    Private Const SWP_NOSIZE As Int32 = &H1
    Private Const HWND_TOPMOST = -1      'bringt ein fenster an die oberste 
    ' stelle
    Private Const HWND_NOTOPMOST = -2    'bringt ein fenster an die unterste 
    ' stelle eines containers
    Private Const HWND_BOTTOM = 1        'bringt ein fenster an die unterste 
    ' position aller fenster
 
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Shown
        Process.Start("notepad.exe")
        Threading.Thread.Sleep(2000)
        SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or _
          SWP_NOSIZE)
    End Sub
End Class