56 lines
1.8 KiB
VB.net
56 lines
1.8 KiB
VB.net
|
Public Class logo
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
|
|||
|
|
#Region " C<>digo generado por el Dise<73>ador de Windows Forms "
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New()
|
|||
|
|
|
|||
|
|
'El Dise<73>ador de Windows Forms requiere esta llamada.
|
|||
|
|
InitializeComponent()
|
|||
|
|
|
|||
|
|
'Agregar cualquier inicializaci<63>n despu<70>s de la llamada a InitializeComponent()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Form reemplaza a Dispose para limpiar la lista de componentes.
|
|||
|
|
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
|
|||
|
|
|
|||
|
|
'Requerido por el Dise<73>ador de Windows Forms
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
|
|||
|
|
'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
|
|||
|
|
'Puede modificarse utilizando el Dise<73>ador de Windows Forms.
|
|||
|
|
'No lo modifique con el editor de c<>digo.
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|||
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(logo))
|
|||
|
|
'
|
|||
|
|
'logo
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|||
|
|
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Bitmap)
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(616, 440)
|
|||
|
|
Me.Cursor = System.Windows.Forms.Cursors.Hand
|
|||
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
|||
|
|
Me.Name = "logo"
|
|||
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|||
|
|
Me.Text = "logo"
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub logo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
End Class
|