Public Class Acercade
  Inherits System.Windows.Forms.Form

  Const EmailMundotec As String = "info@email.com.ar"
  Const EmailHotmail As String = "nombre@email.com"
  Public WithEvents EqtTelefono As System.Windows.Forms.Label
  Const CmtMailto As String = "mailto:"

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Public WithEvents EqtEmpresa As System.Windows.Forms.Label
    Public WithEvents EqtEstado As System.Windows.Forms.Label
    Public WithEvents EqtLugar As System.Windows.Forms.Label
    Public WithEvents EqtVersion As System.Windows.Forms.Label
    Public WithEvents EqtDerecho As System.Windows.Forms.Label
    Public WithEvents EqtNombre As System.Windows.Forms.Label
    Public WithEvents EqtCopy As System.Windows.Forms.Label
    Public WithEvents EqtPrograma As System.Windows.Forms.Label
    Friend WithEvents VnlHotmail As System.Windows.Forms.LinkLabel
    Friend WithEvents VnlWebMundoTec As System.Windows.Forms.LinkLabel
    Public WithEvents BtnAceptar As System.Windows.Forms.Button
    Public WithEvents EqtPeriodoPrueba As System.Windows.Forms.Label
    Friend WithEvents VnlMundoTec As System.Windows.Forms.LinkLabel
    Friend WithEvents VnlWebSueldoTec As System.Windows.Forms.LinkLabel
    Public WithEvents EqtLeyendaMSN As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Acercade))
    Me.BtnAceptar = New System.Windows.Forms.Button()
    Me.EqtEmpresa = New System.Windows.Forms.Label()
    Me.EqtEstado = New System.Windows.Forms.Label()
    Me.EqtLugar = New System.Windows.Forms.Label()
    Me.EqtVersion = New System.Windows.Forms.Label()
    Me.EqtDerecho = New System.Windows.Forms.Label()
    Me.EqtNombre = New System.Windows.Forms.Label()
    Me.EqtCopy = New System.Windows.Forms.Label()
    Me.EqtPrograma = New System.Windows.Forms.Label()
    Me.VnlMundoTec = New System.Windows.Forms.LinkLabel()
    Me.VnlHotmail = New System.Windows.Forms.LinkLabel()
    Me.VnlWebMundoTec = New System.Windows.Forms.LinkLabel()
    Me.EqtPeriodoPrueba = New System.Windows.Forms.Label()
    Me.VnlWebSueldoTec = New System.Windows.Forms.LinkLabel()
    Me.EqtLeyendaMSN = New System.Windows.Forms.Label()
    Me.EqtTelefono = New System.Windows.Forms.Label()
    Me.SuspendLayout()
    '
    'BtnAceptar
    '
    Me.BtnAceptar.Anchor = System.Windows.Forms.AnchorStyles.Bottom
    Me.BtnAceptar.BackColor = System.Drawing.SystemColors.Control
    Me.BtnAceptar.Cursor = System.Windows.Forms.Cursors.Default
    Me.BtnAceptar.FlatStyle = System.Windows.Forms.FlatStyle.System
    Me.BtnAceptar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.BtnAceptar.ForeColor = System.Drawing.SystemColors.ControlText
    Me.BtnAceptar.Location = New System.Drawing.Point(168, 328)
    Me.BtnAceptar.Name = "BtnAceptar"
    Me.BtnAceptar.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.BtnAceptar.Size = New System.Drawing.Size(81, 25)
    Me.BtnAceptar.TabIndex = 0
    Me.BtnAceptar.Text = "&Aceptar"
    Me.BtnAceptar.UseVisualStyleBackColor = False
    '
    'EqtEmpresa
    '
    Me.EqtEmpresa.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtEmpresa.BackColor = System.Drawing.Color.Transparent
    Me.EqtEmpresa.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtEmpresa.Font = New System.Drawing.Font("Arial", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtEmpresa.ForeColor = System.Drawing.Color.Black
    Me.EqtEmpresa.Location = New System.Drawing.Point(8, 8)
    Me.EqtEmpresa.Name = "EqtEmpresa"
    Me.EqtEmpresa.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtEmpresa.Size = New System.Drawing.Size(392, 25)
    Me.EqtEmpresa.TabIndex = 24
    Me.EqtEmpresa.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'EqtEstado
    '
    Me.EqtEstado.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtEstado.BackColor = System.Drawing.Color.Transparent
    Me.EqtEstado.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtEstado.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtEstado.ForeColor = System.Drawing.SystemColors.ControlText
    Me.EqtEstado.Location = New System.Drawing.Point(0, 90)
    Me.EqtEstado.Name = "EqtEstado"
    Me.EqtEstado.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtEstado.Size = New System.Drawing.Size(400, 17)
    Me.EqtEstado.TabIndex = 22
    Me.EqtEstado.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'EqtLugar
    '
    Me.EqtLugar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtLugar.BackColor = System.Drawing.Color.Transparent
    Me.EqtLugar.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtLugar.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtLugar.ForeColor = System.Drawing.SystemColors.ControlText
    Me.EqtLugar.Location = New System.Drawing.Point(8, 304)
    Me.EqtLugar.Name = "EqtLugar"
    Me.EqtLugar.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtLugar.Size = New System.Drawing.Size(392, 17)
    Me.EqtLugar.TabIndex = 21
    Me.EqtLugar.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'EqtVersion
    '
    Me.EqtVersion.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtVersion.BackColor = System.Drawing.Color.Transparent
    Me.EqtVersion.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtVersion.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtVersion.ForeColor = System.Drawing.SystemColors.ControlText
    Me.EqtVersion.Location = New System.Drawing.Point(8, 126)
    Me.EqtVersion.Name = "EqtVersion"
    Me.EqtVersion.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtVersion.Size = New System.Drawing.Size(392, 17)
    Me.EqtVersion.TabIndex = 20
    Me.EqtVersion.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'EqtDerecho
    '
    Me.EqtDerecho.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtDerecho.BackColor = System.Drawing.Color.Transparent
    Me.EqtDerecho.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtDerecho.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtDerecho.ForeColor = System.Drawing.Color.Black
    Me.EqtDerecho.Location = New System.Drawing.Point(8, 280)
    Me.EqtDerecho.Name = "EqtDerecho"
    Me.EqtDerecho.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtDerecho.Size = New System.Drawing.Size(392, 17)
    Me.EqtDerecho.TabIndex = 19
    Me.EqtDerecho.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'EqtNombre
    '
    Me.EqtNombre.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtNombre.BackColor = System.Drawing.Color.Transparent
    Me.EqtNombre.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtNombre.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtNombre.ForeColor = System.Drawing.Color.Black
    Me.EqtNombre.Location = New System.Drawing.Point(8, 160)
    Me.EqtNombre.Name = "EqtNombre"
    Me.EqtNombre.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtNombre.Size = New System.Drawing.Size(392, 17)
    Me.EqtNombre.TabIndex = 17
    Me.EqtNombre.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'EqtCopy
    '
    Me.EqtCopy.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtCopy.BackColor = System.Drawing.Color.Transparent
    Me.EqtCopy.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtCopy.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtCopy.ForeColor = System.Drawing.Color.Black
    Me.EqtCopy.Location = New System.Drawing.Point(8, 144)
    Me.EqtCopy.Name = "EqtCopy"
    Me.EqtCopy.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtCopy.Size = New System.Drawing.Size(392, 17)
    Me.EqtCopy.TabIndex = 16
    Me.EqtCopy.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'EqtPrograma
    '
    Me.EqtPrograma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtPrograma.BackColor = System.Drawing.Color.Transparent
    Me.EqtPrograma.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtPrograma.Font = New System.Drawing.Font("Arial", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtPrograma.ForeColor = System.Drawing.Color.Black
    Me.EqtPrograma.Location = New System.Drawing.Point(8, 48)
    Me.EqtPrograma.Name = "EqtPrograma"
    Me.EqtPrograma.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtPrograma.Size = New System.Drawing.Size(392, 25)
    Me.EqtPrograma.TabIndex = 15
    Me.EqtPrograma.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'VnlMundoTec
    '
    Me.VnlMundoTec.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.VnlMundoTec.BackColor = System.Drawing.Color.Transparent
    Me.VnlMundoTec.Location = New System.Drawing.Point(8, 184)
    Me.VnlMundoTec.Name = "VnlMundoTec"
    Me.VnlMundoTec.Size = New System.Drawing.Size(392, 16)
    Me.VnlMundoTec.TabIndex = 26
    Me.VnlMundoTec.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'VnlHotmail
    '
    Me.VnlHotmail.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.VnlHotmail.AutoSize = True
    Me.VnlHotmail.BackColor = System.Drawing.Color.Transparent
    Me.VnlHotmail.Location = New System.Drawing.Point(240, 202)
    Me.VnlHotmail.Name = "VnlHotmail"
    Me.VnlHotmail.Size = New System.Drawing.Size(0, 13)
    Me.VnlHotmail.TabIndex = 27
    Me.VnlHotmail.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'VnlWebMundoTec
    '
    Me.VnlWebMundoTec.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.VnlWebMundoTec.BackColor = System.Drawing.Color.Transparent
    Me.VnlWebMundoTec.Location = New System.Drawing.Point(8, 230)
    Me.VnlWebMundoTec.Name = "VnlWebMundoTec"
    Me.VnlWebMundoTec.Size = New System.Drawing.Size(392, 16)
    Me.VnlWebMundoTec.TabIndex = 28
    Me.VnlWebMundoTec.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'EqtPeriodoPrueba
    '
    Me.EqtPeriodoPrueba.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtPeriodoPrueba.BackColor = System.Drawing.Color.Transparent
    Me.EqtPeriodoPrueba.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtPeriodoPrueba.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtPeriodoPrueba.ForeColor = System.Drawing.Color.Black
    Me.EqtPeriodoPrueba.Location = New System.Drawing.Point(8, 108)
    Me.EqtPeriodoPrueba.Name = "EqtPeriodoPrueba"
    Me.EqtPeriodoPrueba.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtPeriodoPrueba.Size = New System.Drawing.Size(392, 17)
    Me.EqtPeriodoPrueba.TabIndex = 30
    Me.EqtPeriodoPrueba.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'VnlWebSueldoTec
    '
    Me.VnlWebSueldoTec.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.VnlWebSueldoTec.BackColor = System.Drawing.Color.Transparent
    Me.VnlWebSueldoTec.Location = New System.Drawing.Point(8, 256)
    Me.VnlWebSueldoTec.Name = "VnlWebSueldoTec"
    Me.VnlWebSueldoTec.Size = New System.Drawing.Size(392, 16)
    Me.VnlWebSueldoTec.TabIndex = 31
    Me.VnlWebSueldoTec.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'EqtLeyendaMSN
    '
    Me.EqtLeyendaMSN.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtLeyendaMSN.AutoSize = True
    Me.EqtLeyendaMSN.BackColor = System.Drawing.Color.Transparent
    Me.EqtLeyendaMSN.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtLeyendaMSN.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtLeyendaMSN.ForeColor = System.Drawing.Color.Black
    Me.EqtLeyendaMSN.Location = New System.Drawing.Point(45, 202)
    Me.EqtLeyendaMSN.Name = "EqtLeyendaMSN"
    Me.EqtLeyendaMSN.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtLeyendaMSN.Size = New System.Drawing.Size(0, 14)
    Me.EqtLeyendaMSN.TabIndex = 32
    Me.EqtLeyendaMSN.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'EqtTelefono
    '
    Me.EqtTelefono.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.EqtTelefono.BackColor = System.Drawing.Color.Transparent
    Me.EqtTelefono.Cursor = System.Windows.Forms.Cursors.Default
    Me.EqtTelefono.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.EqtTelefono.ForeColor = System.Drawing.Color.Black
    Me.EqtTelefono.Location = New System.Drawing.Point(3, 200)
    Me.EqtTelefono.Name = "EqtTelefono"
    Me.EqtTelefono.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.EqtTelefono.Size = New System.Drawing.Size(397, 21)
    Me.EqtTelefono.TabIndex = 33
    Me.EqtTelefono.TextAlign = System.Drawing.ContentAlignment.TopCenter
    '
    'Acercade
    '
    Me.AcceptButton = Me.BtnAceptar
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.BackColor = System.Drawing.Color.White
    Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
    Me.ClientSize = New System.Drawing.Size(402, 360)
    Me.ControlBox = False
    Me.Controls.Add(Me.EqtTelefono)
    Me.Controls.Add(Me.EqtLeyendaMSN)
    Me.Controls.Add(Me.VnlWebSueldoTec)
    Me.Controls.Add(Me.EqtPeriodoPrueba)
    Me.Controls.Add(Me.VnlWebMundoTec)
    Me.Controls.Add(Me.VnlHotmail)
    Me.Controls.Add(Me.VnlMundoTec)
    Me.Controls.Add(Me.BtnAceptar)
    Me.Controls.Add(Me.EqtEmpresa)
    Me.Controls.Add(Me.EqtEstado)
    Me.Controls.Add(Me.EqtLugar)
    Me.Controls.Add(Me.EqtVersion)
    Me.Controls.Add(Me.EqtDerecho)
    Me.Controls.Add(Me.EqtNombre)
    Me.Controls.Add(Me.EqtCopy)
    Me.Controls.Add(Me.EqtPrograma)
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
    Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.MaximizeBox = False
    Me.MinimizeBox = False
    Me.Name = "Acercade"
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "Acerca de Gestion.."
    Me.ResumeLayout(False)
    Me.PerformLayout()

  End Sub

#End Region

  Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Escribir las leyendas
    EqtEmpresa.Text = Application.CompanyName
    EqtPrograma.Text = Application.ProductName
    If Evaluacion Then
      EqtEstado.Text = CmtEstado & EstadoPrograma & CmtModoPrueba & """"
    Else
      EqtEstado.Text = CmtEstado & EstadoPrograma & """"
    End If
    EqtCopy.Text = "2008"
    EqtVersion.Text = " Versión " & Application.ProductVersion & " - Modificación a medida: No"
    EqtNombre.Text = "Autor"
    If Evaluacion Then
      EqtPeriodoPrueba.Text = "Resto días de prueba: " & DiasPrueba
    Else
      EqtPeriodoPrueba.Text = DiasPrueba
    End If
    VnlMundoTec.Text = EmailMundotec
    EqtTelefono.Text = "Tel.: -------"
    EqtLeyendaMSN.Text = "Skype (opcional): "
    VnlHotmail.Text = EmailHotmail
    VnlWebMundoTec.Text = CmtWebMundotec
    VnlWebSueldoTec.Text = "Sistema de gestion empresarial"
    EqtDerecho.Text = "-----"
    EqtLugar.Text = "-----------"
  End Sub

  Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
    Close()
  End Sub

  Private Sub VnlHotmail_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles VnlHotmail.LinkClicked
    Try
      Process.Start(CmtMailto & EmailHotmail)
    Catch ex As Exception
      MessageBox.Show(ex.Message, CmtTituloMensaje, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
  End Sub

  Private Sub VnllMundoTec_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles VnlMundoTec.LinkClicked
    Try
      Process.Start(CmtMailto & EmailMundotec)
    Catch ex As Exception
      MessageBox.Show(ex.Message, CmtTituloMensaje, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
  End Sub

  Private Sub VnlWebMundoTec_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles VnlWebMundoTec.LinkClicked
    Try
      Process.Start(VnlWebMundoTec.Text)
    Catch ex As Exception
      MessageBox.Show(ex.Message, CmtTituloMensaje, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
  End Sub

  Private Sub VnlWebSueldoTec_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles VnlWebSueldoTec.LinkClicked
    Try
      Process.Start("http:/url.....com")
    Catch ex As Exception
      MessageBox.Show(ex.Message, CmtTituloMensaje, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
  End Sub

End Class
