Sub UpdateDeviceCount
Dim BadgeNumber As Int = modAVP.DeviceNumber
WobbleMenu1.RemoveBadge(4)
pgx5.WobbleMenu1.RemoveBadge(4)
pgx2.WobbleMenu1.RemoveBadge(4)
pgx3.WobbleMenu1.RemoveBadge(4)
pgx4.WobbleMenu1.RemoveBadge(4)
If BadgeNumber > 0 Then
WobbleMenu1.SetBadge(4, BadgeNumber, Colors.White, Colors.Blue)
pgx5.WobbleMenu1.SetBadge(4, BadgeNumber, Colors.White, Colors.Blue)
pgx2.WobbleMenu1.SetBadge(4, BadgeNumber, Colors.White, Colors.Blue)
pgx3.WobbleMenu1.SetBadge(4, BadgeNumber, Colors.White, Colors.Blue)
pgx4.WobbleMenu1.SetBadge(4, BadgeNumber, Colors.White, Colors.Blue)
End If
End Sub