Public Class ExcProgreso Inherits System.Windows.Forms.Form Public pbExportCancel As Boolean #Region " Código generado por el Diseñador de Windows Forms " Public Sub New() MyBase.New() 'El Diseñador de Windows Forms requiere esta llamada. InitializeComponent() 'Agregar cualquier inicialización despué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ñador de Windows Forms Private components As System.ComponentModel.IContainer Friend WithEvents btn_Cancel As System.Windows.Forms.Button 'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento 'Puede modificarse utilizando el Diseñador de Windows Forms. 'No lo modifique con el editor de código. Friend WithEvents pbrAvance As System.Windows.Forms.ProgressBar Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ExcProgreso)) Me.pbrAvance = New System.Windows.Forms.ProgressBar() Me.btn_Cancel = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'pbrAvance ' Me.pbrAvance.Location = New System.Drawing.Point(2, 4) Me.pbrAvance.Name = "pbrAvance" Me.pbrAvance.Size = New System.Drawing.Size(487, 18) Me.pbrAvance.TabIndex = 0 ' 'btn_Cancel ' Me.btn_Cancel.Location = New System.Drawing.Point(495, 3) Me.btn_Cancel.Name = "btn_Cancel" Me.btn_Cancel.Size = New System.Drawing.Size(65, 20) Me.btn_Cancel.TabIndex = 1 Me.btn_Cancel.Text = "Cancelar" Me.btn_Cancel.UseVisualStyleBackColor = True ' 'ExcProgreso ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackColor = System.Drawing.Color.WhiteSmoke Me.ClientSize = New System.Drawing.Size(562, 27) Me.ControlBox = False Me.Controls.Add(Me.btn_Cancel) Me.Controls.Add(Me.pbrAvance) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "ExcProgreso" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "ExcProgreso" Me.ResumeLayout(False) End Sub #End Region Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click pbExportCancel = True End Sub End Class