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...
B4XPlusMinus4.lblMinus
B4XPlusMinus4.lblPlus
B4XPlusMinus1.lblMinus.Width = B4XPlusMinus1.lblMinus.height '---red button'
B4XPlusMinus1.lblPlus.Width = 30dip 'Green plus button'
B4XPlusMinus1.lblPlus.Height = 30dip
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