<DefaultValue(False), SRDescription("FormTopMostDescr"), SRCategory( _
  "CatWindowStyle")> _
Public Property TopMost As Boolean
    Get
        Return (Me.formState.Item(Form.FormStateTopMost) <> 0)
    End Get
    Set(ByVal value As Boolean)
        If Not Me.IsRestrictedWindow Then
            If (MyBase.IsHandleCreated AndAlso Me.TopLevel) Then
                Dim hWndInsertAfter As HandleRef = IIf(value, _
                  NativeMethods.HWND_TOPMOST, NativeMethods.HWND_NOTOPMOST)
                SafeNativeMethods.SetWindowPos(New HandleRef(Me, _
                MyBase.Handle), hWndInsertAfter, 0, 0, 0, 0, 3)
            End If
            If value Then
                Me.formState.Item(Form.FormStateTopMost) = 1
            Else
                Me.formState.Item(Form.FormStateTopMost) = 0
            End If
        End If
    End Set
End Property

<DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
Public Shared Function SetWindowPos(ByVal hWnd As HandleRef, ByVal _
hWndInsertAfter As HandleRef, ByVal x As Integer, ByVal y As Integer, ByVal cx _
As Integer, ByVal cy As Integer, ByVal flags As Integer) As Boolean
End Function

_____________________________________________________
Programmieren ist heute ein Wettrennen zwischen Programmierern, die versuchen bessere und idiotensicherere Programme zu entwickeln und dem Universum, dass versucht bessere Idioten zu entwickeln