Private Sub Button1_Click
B4XPlusMinus1.lblMinus.Height = B4XPlusMinus1.lblMinus.Width
B4XPlusMinus1.lblPlus.Height = B4XPlusMinus1.lblMinus.Width
B4XPlusMinus1.lblMinus.Top = B4XPlusMinus1.mBase.Height/2 - B4XPlusMinus1.lblMinus.Height/2
B4XPlusMinus1.lblPlus.Top = B4XPlusMinus1.mBase.Height/2 - B4XPlusMinus1.lblPlus.Height/2
B4XPlusMinus1.lblMinus.TextSize = 25
B4XPlusMinus1.lblPlus.TextSize = 25
B4XPlusMinus1.lblMinus.SetColorAndBorder(xui.Color_Red,0,0,B4XPlusMinus1.lblMinus.Height/2)
B4XPlusMinus1.lblMinus.TextColor = xui.Color_White
B4XPlusMinus1.lblPlus.SetColorAndBorder(xui.Color_Green,0,0,B4XPlusMinus1.lblPlus.Height/2)
B4XPlusMinus1.lblPlus.TextColor = xui.Color_White
End Sub