Module ImagesTab
    Public WithEvents ListView As System.Windows.Forms.ListView
    Public Array As New ArrayList
    Public Sub ListView()
        ListView = New Windows.Forms.ListView()
        ListView.LargeImageList = XMLCreator.ListViewImageList
        ListView.Location = New System.Drawing.Point(6, 33)
        ListView.Name = "ListView"
        ListView.Size = New System.Drawing.Size(554, 451)
        ListView.TabIndex = 10
        ListView.UseCompatibleStateImageBehavior = False
        ListView.View = View.LargeIcon
        XMLCreator.ListViewTab.Controls.Add(ListView)
        Dim ListViewRemove As New Button
        With ListViewRemove 
            .Name = "ListViewRemove "
            .Size = New Size(75, 23)
            .Location = New Point(404, 490)
            .Text = "Remove"
            .Enabled = True
            .Visible = True
        End With
        Dim ListViewAdd As New Button
        With ListViewAdd 
            .Name = "ListViewAdd"
            .Size = New Size(75, 23)
            .Location = New Point(485, 490)
            .Text = "Add"
            .Enabled = True
            .Visible = True
        End With
        AddHandler ListViewAdd.Click, AddressOf ListViewAdding
        AddHandler ListViewRemove.Click, AddressOf ListViewRemoveing
        XMLCreator.ListViewTab.Controls.Add(ListViewAdd)
        XMLCreator.ListViewTab.Controls.Add(ListViewRemove)
    End Sub
    Private Sub ListViewAdding()
        addButton(XMLCreator.ListViewImageList, ListView, ListViewArray)
    End Sub
    Private Sub ListViewRemoveing()
        removeButton(ListView, XMLCreator.ListViewImageList, ListViewArray)
    End Sub
End Module