Private Sub Loading_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Loading.Tick
        Me.Opacity += 0.01
        If Me.Opacity >= 1 Then
            Loading.Enabled = False
        End If

    End Sub
    Private Sub InfoShow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BackColor = Color.Red
        TransparencyKey = BackColor
    End Sub
    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        End
    End Sub
    Private Sub Panel1_Paint_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
    End Sub
    Private Sub Panel2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseDown
        Me.Opacity = 0.5
        About.Show()
    End Sub
    Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint
    End Sub
    Private Sub InfoShoweb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles InfoShoweb.DocumentCompleted
    End Sub
End Class