[sami2015]

PHP كود :

Public Class Form1

    Dim picColIndx As Integer = 1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListViewEx1.Columns.Clear()
        ListViewEx1.Columns.Add("name", 200)
        ListViewEx1.Columns.Add("images", 50)

        ListViewEx1.Items.Clear()
        ListViewEx1.Items.Add(New ListViewItem(New String() {"منتدى فيجوال بيسك لكل العرب", "http://vb4arb.com/vb/images/MyBBPro/logo.png"}))
        ListViewEx1.Items.Add(New ListViewItem(New String() {"العزابي", "http://vb4arb.com/vb/uploads/avatars/avatar_9.jpg"}))
        ListViewEx1.Items.Add(New ListViewItem(New String() {"abulayth", "http://vb4arb.com/vb/gallery/153_21_09_13_2_49_26.jpeg"}))
        ListViewEx1.Items.Add(New ListViewItem(New String() {"حريف برمجة", "http://vb4arb.com/vb/uploads/avatars/avatar_1410.jpg"}))
        ListViewEx1.Items.Add(New ListViewItem(New String() {"الماجيك مسعد", "http://vb4arb.com/vb/uploads/avatars/avatar_13647.png"}))

        For Each itm As ListViewItem In ListViewEx1.Items
            Dim pic As New PictureBox
            pic.Cursor = Cursors.Hand
            pic.SizeMode = PictureBoxSizeMode.Zoom
            AddHandler pic.Click, AddressOf PictureBox_Click
            pic.ImageLocation = itm.SubItems(picColIndx).Text
            pic.Tag = itm.SubItems(picColIndx).Text
            ListViewEx1.AddEmbeddedControl(pic, ListViewEx1.Columns(picColIndx).Index, itm.Index)
        Next

    End Sub

    Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start(sender.Tag)
        'MsgBox(sender.Tag)
    End Sub

End Class