Free Programming Tutorials & Source Code

Sometimes you need to add some special effect so you windows application will look nicer. Fade in effect occurs when you load a form.

Here is the code of how to use this effect in your windows forms:

 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         
Me.Opacity = 0         
tr.Enabled = True     
End Sub  

As you see in the code above, you need to add a time to your form. Then write the following for the Timer Trick event:

Private Sub tr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tr.Tick
Me.Opacity += 0.05
If Me.Opacity = 1 Then
tr.Enabled = False
End If
End Sub

You may also consider using this code as Fade Out effects. Simply call it whenever the form unloads or closes.

That's it!