Private Sub Form_Activate()
Dim i As Integer
Dim K As Integer
For i = 0 To 7565 Step 1
Me.InsideHeight = i
Next i
For K = 0 To 11455 Step 1
Me.InsideWidth = K
Next K
End Sub