Here is an example to make your Forms fade In and fade Out. Fade In: Code: Private Sub FadingInForm() Dim iCount As Integer For iCount = 0 To 100 Step +10 Me.Opacity = iCount / 100 Me.Refresh() Threading.Thread.Sleep(50) Next Me.Show() End Sub Fade Out: Code: Private Sub FadingOutForm() Dim iCount As Integer For iCount = 100 To 0 Step -10 Me.Opacity = iCount / 100 Me.Refresh() Threading.Thread.Sleep(50) Next Me.Close() End Sub All you have to do is copy the entire code onto your form's code-view and then simply call it by using someting like a Form_Load or Button_Click Event (or however you want). Example: (Fade In on Form_Load) Code: Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load FadingInForm() End Sub Example: (Fade Out by Button_Click) Code: Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click FadingOutForm() End Sub