Public Sub SendToBack()
    If (Not Me.parent Is Nothing) Then
        Me.parent.Controls.SetChildIndex(Me, -1)
    ElseIf (Me.IsHandleCreated AndAlso Me.GetTopLevel) Then
        SafeNativeMethods.SetWindowPos(New HandleRef(Me.window, Me.Handle), _
          NativeMethods.HWND_BOTTOM, 0, 0, 0, 0, 3)
    End If
End Sub

Public Sub BringToFront()
    If (Not Me.parent Is Nothing) Then
        Me.parent.Controls.SetChildIndex(Me, 0)
    ElseIf ((Me.IsHandleCreated AndAlso Me.GetTopLevel) AndAlso _
      SafeNativeMethods.IsWindowEnabled(New HandleRef(Me.window, Me.Handle))) _
      Then
        SafeNativeMethods.SetWindowPos(New HandleRef(Me.window, Me.Handle), _
        NativeMethods.HWND_TOP, 0, 0, 0, 0, 3)
    End If
End Sub

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