Sub Userform_Activate()  
  SetDeviceIndependentWindow Me
End Sub 

Option Explicit 
' Bildschirmauflösung, unter der die Userform erstellt wurde  
Public Const X_RESOLUTION = 1280 '640  
Public Const Y_RESOLUTION = 1024 '480  

Public Sub SetDeviceIndependentWindow(FormName As Object)  
  ' Diese Prozedur passt die Größe und Anordnung einer Userform  
  ' an die jeweilige Auflösung an.  
  ' Idee und Grundgerüst von Frank Lubitz   
  '  
  ' Im Prozeduraufruf muss die zu ändernde Userform angegeben werden  
  Dim XFactor As Single     ' Horizontal resize ratio  
  Dim YFactor As Single     ' Vertical resize ratio  
  Dim X As Integer          ' For/Next loop variable  
  Dim xPixels As Single
  Dim yPixels As Single
  Dim HeightChange As Long 
  Dim WidthChange  As Long 
  Dim OldHeight As Long 
  Dim OldWidth  As Long 
  Dim ctlControl As Control 
  '  
  ' Fehlermeldungen abfangen  
  On Error GoTo ErrorHandler
  ' Vergrößerungs-/Verkleinerungsfaktor der aktuellen Auflösung  
  ' in Bezug auf die ursprünglche Auflösung  
  XFactor = System.HorizontalResolution / X_RESOLUTION
  YFactor = System.VerticalResolution / Y_RESOLUTION
  ' Keine Neuanordung bei identischer Auflösung  
  If XFactor = 1 And YFactor = 1 Then Exit Sub 
  ' Alte Einstellungen sichern  
  OldHeight = FormName.Height
  OldWidth = FormName.Width
  ' Neue Abmessung der Userform berechnen  
  FormName.Height = FormName.Height * YFactor
  FormName.Width = FormName.Width * XFactor
  ' Änderungen der Abmessungen  
  HeightChange = FormName.Height - OldHeight
  WidthChange = FormName.Width - OldWidth
  ' Userform neu positionieren  
  FormName.Left = FormName.Left - WidthChange / 2
  FormName.Top = FormName.Top - HeightChange / 2
  ' Alle Controls durchlaufen und ändern  
  For Each ctlControl In FormName.Controls
    Debug.Print ctlControl.Name
    If TypeOf ctlControl Is ComboBox Then 
      ' If Not a Simple Combo box  
      ctlControl.FontSize = ctlControl.FontSize * XFactor
      If ctlControl.Style <> 1 Then 
        ControlResize3 ctlControl, XFactor, YFactor
      End If 
    ElseIf TypeOf ctlControl Is TextBox Then 
      ControlResize ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is Label Then 
      ControlResize ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is CheckBox Then 
      ControlResize2 ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is CommandButton Then 
      ControlResize2 ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is ListBox Then 
      ControlResize ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is Image Then 
      ControlResize3 ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is OptionButton Then 
      ControlResize2 ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is MultiPage Then 
      ControlResize2 ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is ToggleButton Then 
      ControlResize2 ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is SpinButton Then 
      ControlResize3 ctlControl, XFactor, YFactor
    ElseIf TypeOf ctlControl Is ScrollBar Then 
      ControlResize3 ctlControl, XFactor, YFactor
    Else 
      ControlResize2 ctlControl, XFactor, YFactor
    End If 
  Next ctlControl
  Exit Sub 
ErrorHandler:
  ' try to handle next control  
  Resume Next 
End Sub 

Function ControlResize(Control As Control, XFactor, YFactor)
  With Control 
    .FontSize = .FontSize * XFactor
    .Move .Left * XFactor, .Top * YFactor, .Width * XFactor, .Height * YFactor
  End With 
End Function 

Function ControlResize2(Control As Control, XFactor, YFactor)
  With Control 
    .Font.Size = .Font.Size * XFactor
    .Move .Left * XFactor, .Top * YFactor, .Width * XFactor, .Height * YFactor
  End With 
End Function 

Function ControlResize3(Control As Control, XFactor, YFactor)
  With Control 
    .Move .Left * XFactor, .Top * YFactor, .Width * XFactor, .Height * YFactor
  End With 
End Function