Public Function LoadItemLibrary(ByVal path As String)
Try
Dim ItemReader As StreamReader = New StreamReader(path)
AceTool.ItemList.Items.Clear()
Do
Loops here ---> AceTool.ItemList.Items.Add(ItemReader.ReadLine)
Loops here ---> AceTool.ListBox1.Items.Add(ItemReader.ReadLine)
Loop Until ItemReader.Peek = -1
Catch ex As Exception
MessageBox.Show(ex.ToString)
If AceTool.ItemList.Items.Count > 0 Then
AceTool.ItemList.Enabled = True
Else
AceTool.ItemList.Items.Add("Error reading library")
End If
End Try
End Function