public Sub LameEncoder_EncodeComplete(Success As Boolean)
If Success Then
File.Delete ( Main.gDir_Arq_Som, Main.gArq_Som_Ult )
Log("** liblame Encode SUCCEEDED " & Main.gArq_Som_Ult )
srv_location_firebase.Flag_Enconding = False
Else
Log("** liblame Encode FAILED " & Main.gArq_Som_Ult)
Timer_Convert.Enabled = True
End If
End Sub