Public Class frmFlowForm_Test1
    ''' <summary>
    ''' Make button with rounded borders by custom painting the background
    ''' </summary>

    Private Sub frmFlowForm_Test1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Opacity = 0.2
    End Sub

    Private Sub frmFlowForm_Test1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
        Opacity = 0.2
    End Sub

    Private Sub frmFlowForm_Test1_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover
        Opacity = 1
    End Sub
End Class