Sub ShowToastMessage(Msg As String)
ToastIndex = ToastIndex + 1 'global int variable
Dim MyIndex As Int = ToastIndex
pnl_tank.Initialize(False)
lbl_hh.Enabled = False
lbl_mm.Enabled = False
btn_mode.Enabled = False
' pnl_tank.Enabled = False
ToastMessageShow(Msg, True)
Sleep(6000) 'long message duration
If ToastIndex <> MyIndex Then Return
pnl_tank.Initialize(True)
lbl_hh.Enabled = True
lbl_mm.Enabled = True
btn_mode.Enabled = True
' pnl_tank.Enabled = True
End Sub