[VB.NET] Il comando MouseLeave non funziona sempre

[Rickycast]

Ho scritto il seguente Codice:

  Private Sub ImportaOn(sender As Object, e As EventArgs) Handles IconaImport.MouseEnter
        IconaImport.Image = My.Resources.Importa_B
        IconaImport.BackColor = Color.White
        IconaImport.BorderStyle = 2
        Application.DoEvents()
    End Sub

    Private Sub ImportaOff(sender As Object, e As EventArgs) Handles IconaImport.MouseLeave
        IconaImport.Image = My.Resources.Importa
        Application.DoEvents()
        IconaImport.BackColor = Color.Transparent
        Application.DoEvents()
        IconaImport.BorderStyle = 0
        Application.DoEvents()
    End Sub

ma nonstante l'uso esagerato di "Applicatio.DoEvents()", quando il Mouse lascia l'Icona, il comando "MouseLeave" non viene eseguito.
O meglio, viene eseguito in maniera casuale, solo quando gli pare, e l'icona rimane nello stato che si genera con il comando "MouseEnter".
Per farla ritornare allo stato relativo al comando "Mouseleave", bisogna passarci sopra nuovamente e talvolta anche più volte.
Posso anche pensare che sia il mio Mouse che non funziona bene, ...
Qualcuno ha qualche idea?