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