Far apparire un Balloon, quando si passa con il mouse su un menu

Il caso in questione è quello in cui si vuole far apparire un Ballon su un Menu, quando, passandoci sopra, venga rilevato che non sono stati creati ancora dei sub-menu (nel nostro esempio almeno uno, che chiameremo: Menu2). Provvederemo a porre una Label (purché questa non dia fastidio ad eventuali altri oggetti prossimi al Menu) proprio in modo contiguo al Menu. La Label potrà anche essere posta totalmente al di sopra del Menu: la Label non riuscirà a coprire l'azione del Menu, il quale resterà comunque perfettamente funzionante). Verrà, quindi, così sollevato l'evento _Enter, quando il mouse entrerà nella Label:

Public Sub Label1_Enter()

 If IsNull(Me.Controls["Menu2"]) Then
   Balloon.Warning("Attenzione ! Sotto-Menu assenti", Label1)
 Endif

End

Un'alternativa potrebbe essere quella di verificare il passaggio del mouse nell'area del Menu, tenendo conto delle coordinate .X ed .Y .