PHP Kod:
Private Sub Form_Current()
Dim height As Integer
height = Me.RTFControl.Object.RTFheight
If height > 0 Then
If height < 32000 Then
Me.RTFControl.height = height
End If
End If
Me.Section(acDetail).height = Me.RTFControl.height + Me.RTFControl.Top
If Me.RTFControl.Object.RTFheight > 0 Then
If Me.RTFControl.Object.RTFheight < 32000 Then
Me.RTFControl.height = Me.RTFControl.Object.RTFheight
End If
End If
End Sub