BottomMostForm -TizzyT

Public Class BottomMostForm
    Inherits Form

    Private Property LockZorder As Boolean = False

    Private Structure WINDOWPOS
        Public hwnd As IntPtr
        Public hwndInsertAfter As IntPtr
        Public x As Integer
        Public y As Integer
        Public cx As Integer
        Public cy As Integer
        Public flags As UInteger
    End Structure

    Public Overridable Overloads ReadOnly Property TopMost() As Boolean
        Get
            Return False
        End Get
    End Property

    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = &H46 AndAlso LockZorder Then
            Dim Intercept As New WINDOWPOS
            Intercept = Runtime.InteropServices.Marshal.PtrToStructure(m.LParam, GetType(WINDOWPOS))
            Intercept.flags = 4 Or Intercept.flags
            Runtime.InteropServices.Marshal.StructureToPtr(Intercept, m.LParam, True)
        End If
        MyBase.WndProc(m)
    End Sub

    Private Sub BottomMostForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        LockZorder = False
        SendToBack()
        LockZorder = True
    End Sub
End Class