Public Class RepGrafica Inherits System.Windows.Forms.Form Dim clGraf As New clsGrafica() #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 '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 AxDBGrid1 As AxMSDBGrid.AxDBGrid Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(RepGrafica)) Me.AxDBGrid1 = New AxMSDBGrid.AxDBGrid() CType(Me.AxDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'AxDBGrid1 ' Me.AxDBGrid1.Location = New System.Drawing.Point(64, 88) Me.AxDBGrid1.Name = "AxDBGrid1" Me.AxDBGrid1.OcxState = CType(resources.GetObject("AxDBGrid1.OcxState"), System.Windows.Forms.AxHost.State) Me.AxDBGrid1.Size = New System.Drawing.Size(224, 128) Me.AxDBGrid1.TabIndex = 0 ' 'RepGrafica ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(406, 292) Me.ControlBox = False Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.AxDBGrid1}) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D Me.Name = "RepGrafica" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "RepGrafica" CType(Me.AxDBGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region End Class