Didn't get to finish my post
If you want to try and resize the controls yourself, the algorythm is fairly straightforward, but there are a number of pitfalls that you need to be aware of.
First, calculate a HeightFactor and a WidthFactor.
dim HeightFactor as Single
dim WidthFactor as Single
HeightFactor = NewWindowHeight / OldWindowHeight
WidthFactor = NewWindowWidth / OldWindowWidth
Loop thru your controls collection, and for each that apply, call the following subroutine passing the control and a byref parameter.
dim TheControl as Control
For Each TheControl in Me.Controls
SizeThisControl ThisControl
Next
Private Sub SizeThisControl(ControlID As Control)
On Error GoTo HandleError
Dim NewWidth As Long
Dim NewTop As Long
Dim NewLeft As Long
Dim NewHeight As Long
With ControlID
NewTop = Int((.Top * gHeightFactor) + 0.5)
NewHeight = Int((.Height * gHeightFactor) + 0.5)
NewLeft = Int((.Left * gWidthFactor) + 0.5)
NewWidth = Int((.Width * gWidthFactor) + 0.5)
.Top = pLng_NewTop
.Left = pLng_NewLeft
.Width = pLng_NewWidth
.Height = pLng_NewHeight
End With
Exit Sub
HandleError:
Resume Next
End Sub
Some of the pitfalls that you need to be aware of:
1. Watch out for FontSize - you may or may not want to adjust the .FontSize property, but not all controls have that property.
2. If you controls are on tabs, then if would not be a good idea to adjust the size and/or position of that control unless you are actually on that tab.
3. You may have events triggered on the controls as they are moved and resized, so you need to handle those.
4. Be sure to keep the error handler because of such things as "Left Property cannot be read a run-time" -- this will happen if your control happens to be a timer.
As far as downloading, I would search
for some examples. Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein
