Code:
'Resize your form base on screen resolution. 

Option Explicit 

Private lngFormWidth As Long 
Private lngFormHeight As Long 

Private Sub Form_Load() 

Dim Ctl As Control 

'Store form dimensions in variables 

lngFormWidth = ScaleWidth 
lngFormHeight = ScaleHeight 

'Store initial control dimensions 
'in the Tag property - with error 
'handling for those controls which 
'do not have properties such as Top 
'(eg, Line control) 

On Error Resume Next 

For Each Ctl In Me 
Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & _ 
Ctl.Width & " " & Ctl.Height & " " 
Ctl.Tag = Ctl.Tag & Ctl.FontSize & " " 
Next Ctl 

On Error GoTo 0 

End Sub 

Private Sub Form_Resize() 

Dim D(4) As Double 
Dim i As Long 

Dim TempPoz As Long 
Dim StartPoz As Long 

Dim Ctl As Control 
Dim TempVisible As Boolean 

Dim ScaleX As Double 
Dim ScaleY As Double 

'Calculate the scale 

ScaleX = ScaleWidth / lngFormWidth 
ScaleY = ScaleHeight / lngFormHeight 

On Error Resume Next 

'Cycle through each control 

For Each Ctl In Me 
TempVisible = Ctl.Visible 
Ctl.Visible = False 
StartPoz = 1 

'Read data from the Tag property 

For i = 0 To 4 
TempPoz = InStr(StartPoz, Ctl.Tag, " ", _ 
vbTextCompare) 

If TempPoz > 0 Then 
D(i) = Mid(Ctl.Tag, StartPoz, _ 
TempPoz - StartPoz) 
StartPoz = TempPoz + 1 
Else 
D(i) = 0 
End If 

'Move the control based on data 
'in the Tag property and the form 
'scale... 

Ctl.Move D(0) * ScaleX, D(1) * ScaleY, _ 
D(2) * ScaleX, D(3) * ScaleY 
Ctl.Width = D(2) * ScaleX 
Ctl.Height = D(3) * ScaleY 

'Change font size 

If ScaleX < ScaleY Then 
Ctl.FontSize = D(4) * ScaleX 
Else 
Ctl.FontSize = D(4) * ScaleY 
End If 

Next i 

Ctl.Visible = TempVisible 

Next Ctl 

On Error GoTo 0 

End Sub