[E100]

كود :

Private Sub DGV_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellEnter
        Dim columnName As String = DGV.Columns(e.ColumnIndex).Name

        If columnName = "Image" Then
            Dim CellRectangle1 = DGV.GetCellDisplayRectangle(DGV.CurrentCell.ColumnIndex, DGV.CurrentCell.RowIndex, True)
            If DGV.RightToLeft = Windows.Forms.RightToLeft.Yes Then
                ListBox1.Location = New Point(DGV.Left + CellRectangle1.Left - (ListBox1.Width - CellRectangle1.Width), DGV.Top + CellRectangle1.Bottom)
            Else
                ListBox1.Location = New Point(DGV.Left + CellRectangle1.Left, DGV.Top + CellRectangle1.Bottom)
            End If
        End If
    End Sub