Pulsar con boton dcho en una imagen y salir menu

[lena28]

Tengo un problemilla, me funciona a la perfeccion pero solo con la imagen de indice 0, como lo hago para que se me cargue con las otras que cargo dinamicamente, he probado con "Load mnupopup(n)", pero se ve que no lo hace bien.

Dim indiceMenus as integer
Private Sub Deposito_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

Imagen(Index).DragMode = 0

If Button = vbRightButton Then
'Mostramos el menu popup
indiceMenus = Index
Me.PopupMenu mnupopup(Index)

End If
If Button = vbLeftButton Then
Imagen(Index).DragMode = 0
r = 1
End If
End Sub

Private Sub Deposito_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
If r = 1 Then
If x > 300 And y > 300 Then
Imagen.Item(Index).Width = x
Imagen.Item(Index).Height = y

End If
End If
End Sub

Private Sub Imagen_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
r = 0
End Sub
Private Sub SubMenuCambiartamaño_Click()
Imagen(indiceMenus).Stretch = True
End Sub

Private Sub SubMenuMover_Click()

Imagen(indiceMenus).DragMode = 1
End Sub

Si podeis ayudarme os lo agradeceria, Gracias de todas formas