Private Sub VerticallyCenter(ctl As Control)
On Error GoTo hata
Dim lngHeight As Long
lngHeight = fTextHeight(ctl)
ctl.TopMargin = ((ctl.Height - lngHeight) / 2)
hata: ctl.Height = (ctl.Height * 5) / 4
End Sub
Rapordaki ilgili kodu aşağıdaki ile değiştir.