Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Opacity = 0.99 ''fadeIn Dim iCount As Integer For iCount = 90 To 10 Step -5 Me.Opacity = iCount / 100 Me.Refresh() Threading.Thread.Sleep(100) Me.Opacity = 0.99 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ''fadeOut Dim iCount As Integer For iCount = 90 To 10 Step -10 Me.Opacity = iCount / 100 Me.Refresh() Threading.Thread.Sleep(50) Next Me.Close() End Sub End Class
'Me.Opacity = 0.99 ' Get rid of this ''fadeIn Dim iCount As Integer For iCount = 10 To 90 Step 5
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)