THX D!!!!
Ugyan nem ez lett a vége, de hála neked megtudtam, hogy kell írni, mivel én mindenre gondoltam, csak arra nem, hogy simán Index

Private Sub imgTaska_Click(Index As Integer)
n = Index
End Sub

Ennyi
KIRÁLYSÁG!