[RESOLVED] the event procedure starts with second click it doesnt work with the first click

Declaration
Dim palette As Byte

Private Sub Command10_Click()
Select Case palette
Case Is = 0
Form1.Height = 10575
palette = palette + 1
Case Is = 1
Form1.Height = 9375
palette = palette - 1
End Select
End Sub


i wanted a button like in ms word find and replace window that says less and when u click it says more

and it works using this code but there is one thing

it starts to work on second click why is that?