Private Sub Form_Load()
Dim lng_hoehe As Long
Dim lng_breite As Long
 
Me.Height = 5000
Me.Width = 10000
 
lng_hoehe = Me.Height
lng_breite = Me.Width
Text1.Text = lng_hoehe & lng_breite
 
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *