Working with Opacity and Properties to Stay on the Top

'Working with Opacity and Properties to Stay on the Top

Public Class frmOpacitynTopMost

    Private Sub frmOpacitynTopMost_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.AliceBlue
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
        Me.Size = New Size(400, 400)
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.MinimizeBox = False

        'Create a new form and set its Properties to stay on top.
        Dim frmOnTop As Form = New Form()
        frmOnTop.TopMost = True
        frmOnTop.Opacity = 0.4
        frmOnTop.Show()
    End Sub

End Class