17 lines
549 B
VB.net
17 lines
549 B
VB.net
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 |