13 lines
436 B
VB.net
13 lines
436 B
VB.net
Public Class frmFlowForm_Test1
|
|
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 |