Italian Lag applicazione

[MAX_SV]

Scusate se stò diventando un rompi balle ...
nella mia applicazione ho inserito una progress bar per visualizzare il livello di batteria con il seguente codice:

Sub PE_BatteryChanged (Level AsInt, Scale AsInt, Plugged AsBoolean, IntentAsIntent)
'Log("BatteryChanged: Level = " & Level )

Dim testo AsString
DoEvents
Try
If Plugged=TrueThen

testo="In Carica"
If Level < 15Then

lbl_valore.TextColor = Colors.Yellow
Dim b AsBeeper
b.Initialize(600, 700) '600 milliseconds, 700 hz

b.Beep​

Else

lbl_valore.TextColor = Colors.green
End If​

Else
testo=" "
If Level < 15Then

lbl_valore.TextColor = Colors.red
Dim b AsBeeper
b.Initialize(600, 700) '600 milliseconds, 700 hz

b.Beep​

Else

lbl_valore.TextColor = Colors.white​

End If​

End If
lbl_valore.Text= "Livello Batteria: "& Level & " % " & testo
'DoEvents
barra_bat.Progress=Level

'DoEvents
Catch

EndTry​

End Sub

il tutto funziona tranne un piccolo particolare quando disinserisco l'alimentazione il programma va in freez per circa 5 secondi e per sbloccarlo devo cliccare sul menu dell app stessa.