Play your AVI files with this DirectX video player

Public Class frmFileInfo
    Dim f As Form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FadeOut()
    End Sub

    Private Sub frmFileInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If txtName.Text = "" Then
            Me.Close()
        End If

        If txtExtension.Text = ".avi" Then
            txtExtension.Text = "AVI FILE"
        End If
    End Sub

    Private Sub FadeOut()
        Dim cntr As Integer
        For cntr = 90 To 10 Step -10
            Me.Opacity = cntr / 100
            Me.Refresh()
            Threading.Thread.Sleep(50)
        Next cntr
        Me.Close()
    End Sub

End Class