Sub SliderUnlocked_Click
SliderLocked.Visible=True
SliderUnlocked.Visible=False
'Wood, Double, Metal, Gate, Barrier, Sliding, Elevator, Overhead, Window, Light, Temp
If Vars.CurrentType="Wood" Then
If Vars.CurrentID=1 Then
Vars.DoorWood1.SetVisible("Locked",True)
Vars.DoorWood1.SetVisible("Unlocked",False)
Vars.DoorWood1.UpdateWidget
End If
else If Vars.CurrentType="Double" Then
If Vars.CurrentID=1 Then
Vars.Doordouble1.SetVisible("Locked",True)
Vars.Doordouble1.SetVisible("Unlocked",False)
Vars.Doordouble1.UpdateWidget
End If
else If Vars.CurrentType="Metal" Then
If Vars.CurrentID=1 Then
Vars.Doormetal1.SetVisible("Locked",True)
Vars.Doormetal1.SetVisible("Unlocked",False)
Vars.Doormetal1.UpdateWidget
End If
else If Vars.CurrentType="Gate" Then
If Vars.CurrentID=1 Then
Gate1.Doorgate1.SetVisible("Locked",True)
Gate1.Doorgate1.SetVisible("Unlocked",False)
Gate1.Doorgate1.UpdateWidget
End If
End If
End Sub