[alims]

السلام عليكم قومت بعمل هذا الكود و هو شغل بدون مشكلة ولكن اريد ان يظهر جانب كلمة online و offline صورة صورة لون احمر offlineو صورة تانية لون اخضر online 
و اريد ان يظهر سهم لغلق و افتح القايمة لكن من online و offline
ودى صورة اخر حاجة وصلتها و اشكر الاستاذ asemshahen5 

كود :

Imports System
Imports System.Drawing
Public Class Form2

    Dim myImageList1 As System.Windows.Forms.ImageList = New ImageList()
 Public Sub New()
        InitializeComponent()
        Dim myImageList1 As System.Windows.Forms.ImageList = New ImageList()
        myImageList1.ImageSize = New Size(64, 64)
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\01.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\02.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\03.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\04.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\05.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\06.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\07.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\08.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\09.jpg"))
        myImageList1.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\10.jpg"))
        Dim myImageList2 As System.Windows.Forms.ImageList = New ImageList()
        myImageList2.ImageSize = New Size(32, 32)
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\01.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\02.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\03.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\04.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\05.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\06.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\07.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\08.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\09.jpg"))
        myImageList2.Images.Add(Image.FromFile("C:\Users\Soka\Desktop\New folder\10.jpg"))
        myListView.LargeImageList = myImageList1
        myListView.SmallImageList = myImageList2
        myListView.Items.Add("Item 1", 0)
        myListView.Items.Add("Item 2", 1)
        myListView.Items.Add("Item 3", 2)
        myListView.Items.Add("Item 4", 3)
        myListView.Items.Add("Item 5", 4)
        myListView.Items.Add("Item 6", 5)
        myListView.Items.Add("Item 7", 6)
        myListView.Items.Add("Item 8", 7)
        myListView.Items.Add("Item 9", 8)
        myListView.Items.Add("Item 10", 9)
        Dim myLVGroup1 As ListViewGroup = New ListViewGroup("Online", HorizontalAlignment.Left)
        Dim myLVGroup2 As ListViewGroup = New ListViewGroup("Offline", HorizontalAlignment.Left)
        myListView.Groups.AddRange(New ListViewGroup() {myLVGroup1, myLVGroup2})
        myListView.Items(0).Group = myListView.Groups(0)
        myListView.Items(1).Group = myListView.Groups(0)
        myListView.Items(2).Group = myListView.Groups(0)
        myListView.Items(3).Group = myListView.Groups(0)
        myListView.Items(4).Group = myListView.Groups(0)
        myListView.Items(5).Group = myListView.Groups(1)
        myListView.Items(6).Group = myListView.Groups(1)
        myListView.Items(7).Group = myListView.Groups(1)
        myListView.Items(8).Group = myListView.Groups(1)
        myListView.Items(9).Group = myListView.Groups(1)
    End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myListView.View = View.Tile
    End Sub