gracias
Código:
Public Class Form1 Private xBind As New BindingSource Private lista As New List(Of guia) Class guia Public unidad As String Public descripcion As String Public cantidad As Integer End Class Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' instanciamos clase guia y le damos valores Dim _guia As New guia _guia.unidad = Me.ComboBox1.Text _guia.descripcion = Me.TextBox2.Text _guia.cantidad = Me.TextBox3.Text ' añadimos el objeto a la lista lista.Add(_guia) ' creamos un objeto para enlazar la lista con la tabla DataGridView1.Rows.Add(lista) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DataGridView1.Columns.Add("Unidad", "Unidad") DataGridView1.Columns.Add("Descripcion", "Descripcion") DataGridView1.Columns.Add("Cantidad", "Cantidad") DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect DataGridView1.EnableHeadersVisualStyles = False DataGridView1.Columns(0).Width = 60 DataGridView1.Columns(1).Width = 260 DataGridView1.Columns(2).Width = 70 End Sub End Class