Hola
Simplemente usa las coordenadas del mouse para mover el picture:
PicContainer.Left = ListView1.ColumnHeaders.Item(1).Width '//Coloca la imagen al final de la columna
'PicContainer.Left = Item.Width + 50 '//Coloca la imagen al final de texto
'PicContainer.Left = x '//Coloca la imagen en el lugar del puntero
PicContainer.Top = Item.Top + Item.Height + 40
Ejemplo:
Private Sub Listview1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'variable para el item seleccionado
Dim Item As ListItem
' verifica que se presionó el botón derecho
If Button = vbRightButton Then
' HitTest devuelve la ferencia al item, a partir _
de las coordenadas del mouse
Set Item = ListView1.HitTest(x, y)
' chequea que haya un item seleccionado
If Not Item Is Nothing Then
' Selecciona el elemento
Set ListView1.SelectedItem = Item
' texto del elemento seleccionado
Me.Caption = Item.Text
PicContainer.Visible = True
lblListaDe.Caption = ListView1.SelectedItem.SubItems(1)
PicContainer.Left = ListView1.ColumnHeaders.Item(1).Width '//Coloca la imagen al final de la columna
'PicContainer.Left = Item.Width + 50 '//Coloca la imagen al final de texto
'PicContainer.Left = x '//Coloca la imagen en el lugar del puntero
PicContainer.Top = Item.Top + Item.Height + 40
End If
Else
PicContainer.Visible = False
End If
End Sub
Como ves he deshabilitado varias líneas de código a la hora de colocar la imagen, una al final de la columna (habilitada), otra al final del texto, y otra justo en el mismo lugar en el que se encuentre el puntero. Según te guste más.
suerte