I assume the labels are in an array?
Code:
Private Sub Label1_Click(Index As Integer)
Dim intX As Integer
Label1(intX).Caption = "Hi"
End Sub