Bueno mi viejo, te comentoq e este codigo no es mio, pero lo acomode a mis necesidades para las aplicaciones que realizo, la verdad me funciona sin problemas, pienso que deberia probarlo y acoplarlo a las dimensiones que manejas en tu proyecto:
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub Form_Load()
RevRes(Me)
End Sub
''resolucion de la pantalla
Function RevRes(Forma As Form)
Dim screenSize As Integer, SM_CXSCREEN As Integer, _
Control, Cc As Integer, sizeFactor As Single
SM_CXSCREEN = 0
screenSize = GetSystemMetrics(SM_CXSCREEN)
sizeFactor = 0
Select Case screenSize
'640 x 480
Case 640:
sizeFactor = 0.8
'800 x 600
Case 800:
sizeFactor = 1
'1024 x 768
Case 1024:
sizeFactor = 1.3
End Select
If sizeFactor = 0 Then
sizeFactor = 1
End If
Cc = -1
For Each Control In Forma
On Error Resume Next
Cc = Cc + 1
Forma(Cc).Width = Forma(Cc).Width * sizeFactor
Forma(Cc).Left = Forma(Cc).Left * sizeFactor
Forma(Cc).Height = Forma(Cc).Height * sizeFactor
Forma(Cc).Top = Forma(Cc).Top * sizeFactor
Next
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Espero y te se de ayuda, suerte mi viejo