Dim TS As TableCell
DeviceInfo.Initialize
DeviceInfo = FoundDevices.Get(Key)
TS = tv1.AddTwoLines("","")
TS.Tag = DeviceInfo
Dim SignalBars, DeviceText As AttributedString
DeviceText.Initialize(DeviceInfo.Name, Font.CreateNew(21), Colors.Black)
SignalBars.Initialize(GetBars(CalculateSignalLevel(DeviceInfo.RSSI, 5)), Font.CreateNew2("FontAwesome5ProSolid", 19), Colors.Gray)
TS.DetailText = SignalBars
TS.Text = DeviceText