Resizing problems

I have an ActiveX Control. and I want to resize it when you hit a button on it.

Currently what happens is that when I click the button, it take two clicks before it resizes. The first click it does nothing. On the second click the control resizes correctly.
once it's resized i only need to click it once again for it to size back to normal.

So assume it's width is 400 and the height is 400
when i click on it, i want to width to be 400 and the height to be 200. when i click the button again, it should size back to 400x400

i use this code with a command button for simplicity

Private Sub Command1_Click()
If UserControl.Height = 400 Then
Size 400, 200
Else: Size 400, 400
End If
End Sub

Any help would be appreciated. btw, how does one get teh VB to look like the code layout on the forum?

Are you using a CommandButton or some other Control? I find that it takes 2 clicks for an Image Control to get it's Click event to trigger.

it's a command button, but the actual implementation will be an image.

gargamehl,

it could be, that you are facing scaling problems. under normal circumstances, if you resize you control's width to 400 twips and then query the widh property it shows a different value (405 on my machine), since the twips are being rounded to pixels internaly. i hope the following example will point you in the right direction:

'**********************************************************

Option Explicit

Private mlngWidth As Long
Private mlngHeight As Long
Private mlngAltHeight As Long

Private Sub UserControl_Initialize()

With Screen
mlngWidth = (400 \ .TwipsPerPixelX) * .TwipsPerPixelX
mlngHeight = (400 \ .TwipsPerPixelY) * .TwipsPerPixelY
mlngAltHeight = (200 \ .TwipsPerPixelY) * .TwipsPerPixelY
End With

End Sub

Private Sub Command1_Click()

With UserControl
If .Height = mlngHeight Then
.Size mlngWidth, mlngAltHeight
Else
.Size mlngWidth, mlngHeight
End If
End With

End Sub

First off i'm going to be more detailed about what i'm doing. I want the control to shrink when i click on a button and then expand when i click on it again.

So it starts out expanded. and when i click on it, it won't shrink until i clck on it again.

thus requiring two clicks to shrink but only one click to expand.

Sascha,
Thanks for your help. I think what you have provided for me will aid in making it size correctly. My issue is that it won't size at all until the second click.

I am actually doing the calculation in Twips i just used pixels as my example in order to simplify it.

So the real issue is whether or not I can get it to shrink correctly with only one click. Metatron alluded to the problem but didn't provide a solution yet.

Thanks.

try adding the following code to my previous snippet:

Private Sub UserControl_Show()

With UserControl
.Size mlngWidth, mlngHeight
End With

End Sub