Visual Basic - Como redimencionar letras

Mi problema es el siguiente
el programa que estoy desarrollando se supone que debe de modificar el tamaño de lo labeles cuando se pociciona el raton encima de ellos y volverlos a su normalidad cuando uno quita el puntero primero funcionaba de maravilla cuando lo tenia con diferentes labeles sin index pero ahora que les hice index no me funciona el codigo.
el codigo que use el es siguiente :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Esto camia el tamaño de la letra
frmMenuPrincipal.Titulo(0).FontSize = 28
frmMenuPrincipal.Titulo(1).FontSize = 28
frmMenuPrincipal.Titulo(2).FontSize = 28
frmMenuPrincipal.Titulo(3).FontSize = 28
frmMenuPrincipal.Titulo(4).FontSize = 28
frmMenuPrincipal.Titulo(5).FontSize = 28

'Esto cambia el color de la letra
frmMenuPrincipal.Titulo(0).ForeColor = vbGreen
frmMenuPrincipal.Titulo(1).ForeColor = vbGreen
frmMenuPrincipal.Titulo(2).ForeColor = vbGreen
frmMenuPrincipal.Titulo(3).ForeColor = vbGreen
frmMenuPrincipal.Titulo(4).ForeColor = vbGreen
frmMenuPrincipal.Titulo(5).ForeColor = vbGreen

End Sub

y trate de hacer lo mismo con el label pero como es un indes al pasar el mouse pou uno de ellos me agranda todos lo labeles y lo que yo quiero es tofdo lo contrario

Si alguien me puede ayudar le estare muy agradecido
es que ya llevo 3 dias tratando de arreglar sto pero no puedo

Ponte en un formulario 4 label1, que serán:
label1(0), label1(1), label1(2), label1(3) y label1(4)

Private Sub Form_Load()
Form1.Show
Form1.SetFocus
For X = 0 To 4
Label1(X).FontSize = 10
Label1(X).ForeColor = vbBlack
Next
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For X = 0 To 4
Label1(X).FontSize = 10
Label1(X).ForeColor = vbBlack
Next
End Sub

Hasta aquí en el FORM

y ahora en el MOUSEMOVE DE LAS ETIQUETAS

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1(Index).FontSize = 28
Label1(Index).ForeColor = vbGREEN
End Sub

Y con esto te funcionará

Saludos

gracias por la ayuda