Dim a() As String Dim ali As ALI a = ali.GetNames(ali.GetType()) ListBox2.Items.AddRange(a)
ListBox2.Items.Add(ALI.ASD)