Private Sub CreateLVLOGS() Dim fullyQualifiedClassName As String = "System.Windows.Forms.ListView" Dim o = BuscaInstancia(fullyQualifiedClassName) Dim LVLOGS = CType(o, Control) LVLOGS.Top = 205 LVLOGS.Left = 82 LVLOGS.BackColor = Color.WhiteSmoke LVLOGS.Height = 645 LVLOGS.Width = 303 Panel5.Controls.Add(LVLOGS) AddHandler LVLOGS.ColumnCreating, AddressOf ListView1_ColumnCreating 'AddHandler LVLOGS.Click, AddressOf AbrirPDfDestino_Click 'Addhandler LVLOGS.columnclick addressof listview_columnclick End Sub Private Sub ListView1_ColumnCreating(sender As Object, e As ListViewColumnCreatingEventArgs) If e.Column.FieldName = "Name" OrElse e.Column.FieldName = "NAME" Then e.Column.Visible = False End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)