Sub SlideSwitch1_open(swview As Object,token As Object)
Log("Slide OPEN (Token = "&token&")")
SlideSwitch1.Color = Colors.Green
End Sub
Sub SlideSwitch1_close(swview As Object,token As Object)
Log("Slide CLOSE (Token = "&token&")")
SlideSwitch1.Color = Colors.Red
End Sub