hi alle
mit diesem code wird die userform1 gezoomt um den fator 1.2
was auf gut funkt.
aber die listbox fenster werden bei jedem mal zoomen kleiner.
also genauer gesagt listbox hight!
RAGE:was fehl hier noch??
'userform zoomen
Private Sub zoom_Click()
If b Then
b = False
Me.Height = Me.Height * faktor
Me.Width = Me.Width * faktor
For Each c In Me.Controls
c.Height = c.Height * faktor
c.Width = c.Width * faktor
c.Top = c.Top * faktor
c.Left = c.Left * faktor
c.Font.Size = c.Font.Size * faktor
Next
Else
b = True
Me.Height = Me.Height / faktor
Me.Width = Me.Width / faktor
For Each c In Me.Controls
c.Height = c.Height / faktor
c.Width = c.Width / faktor
c.Top = c.Top / faktor
c.Left = c.Left / faktor
c.Font.Size = c.Font.Size / faktor
Next
End If
End Sub
DANKE
IVAN