Public NotInheritable Class FrmAboutBox

    Private Sub FrmAboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Set the title of the form.
        'Dim ApplicationTitle As String

        'If My.Application.Info.Title <> "" Then
        '    ApplicationTitle = My.Application.Info.Title
        'Else
        '    ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        'End If

        'Me.Text = String.Format("About {0}", ApplicationTitle)
        ' Initialize all of the text displayed on the About Box.
        ' TODO: Customize the application's assembly information in the "Application" pane of the project 
        '    properties dialog (under the "Project" menu).

        'Me.LabelProductName.Text = My.Application.Info.ProductName
        'Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)

        'Me.LabelCopyright.Text = My.Application.Info.Version.ToString & " © Copyright 1997-2015"

        'Me.LabelCompanyName.Text = My.Application.Info.CompanyName

        'Me.TextBoxDescription.Text = My.Application.Info.Description

        TextBoxDescription.Text = "Teléfonos de contacto Ciudad de México " & vbCrLf &
                                    "(+52) (55) 56113961, (+52) (55) 56113971"


        LabelCopyright.Text &= Date.Now.Year

    End Sub

    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub LabelCompanyName_Click(sender As System.Object, e As System.EventArgs) Handles LabelCompanyName.Click

    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("IExplore", "http://www.condorbs.net/")
    End Sub
End Class