form kapanırken fade away;
forma name ozelligi btnexit olan bir buton surukleyelip butonun click olayına dim d as double ile baslayan kodları ekleyelin
Private
Sub
btnexit_Click(
ByVal
sender
As
System.
Object
,
e
System.EventArgs)
Handles
btndexit.Click
Dim
d
Double
For
d = 1
To
0 + 0.2
Step
-0.2
System.Threading.Thread.Sleep(50)
Application.DoEvents()
Me
.Opacity = d
.Refresh()
Next
Environment.
Exit
(0)
End
form acılırken fade away;
form un load olayına
Form1_Load(
MyBase
.Load
d = 0
1 - 0.1
+0.1
.Opacity = 100