Visual Basic - eventoss

bueno tengo 3 preguntas

1 como hacer para que cuando el mouse este sobre el texto este se agrande y cuando ya no este regrese a su tamaño normal

2 como hago para hacer un menu con varios submenus eh intentando por el editor de menus pero solo me deja hacer un menu sin submenus

3 como hago para hacer que con un boton abra un archivo MHTML pero sin ruta especifica por qeu lo pienso quemar en un cd y a no ser qeu sirva desde el cd no me sirve bueno muchas gracias

te ayudo con la primera...

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Int(Text1.FontSize) <> 8 Then Text1.FontSize = 8
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Int(Text1.FontSize) <> 12 Then Text1.FontSize = 12
End Sub

espero te sirva... suerte.