Problemmer med Me.GroupHeader2.Height

Jeg er ved at lave en rapport i access med indholds formatering.
Højden i gruppe header 2, bliver styret af hvorvidt om der er billeder eller tekst, det fungerer.

Men problemmet er at højden først bliver ændret i den efterfølgende gruppe, hvad er årsagen.

se koden her.

Private Sub GroupHeader2_Format(Cancel As Integer, FormatCount As Integer)
  Dim H_TWIP, H_TWIP1 As Integer
  Dim W_TWIP, W_TWIP1 As Integer
  Dim CorTxtH As Integer
 
  H_TWIP = 0
  H_TWIP1 = 0
  Me.GroupHeader2.Height = 500 + 567
 
  If Not IsNull(Me.txtInfo) Then
    Me.txtInfo.Height = 1300
    CorTxtH = 567
  Else
    Me.txtInfo.Height = 300
    CorTxtH = 0
  End If
 
 
  If Not IsNull(Me.IMAGE1) Then
    H_TWIP = IntPt(Me.IMAGEDATA_Height * 0.7)
    W_TWIP = IntPt(Me.IMAGEDATA_Width * 0.7)
   
    If H_TWIP = 0 Then H_TWIP = 1
    If W_TWIP = 0 Then W_TWIP = 1
       
    H_TWIP1 = Int((1500 / W_TWIP) * H_TWIP)
    If H_TWIP1 > 1900 Then H_TWIP1 = 1900
   
    If H_TWIP1 < 1300 Then
      Me.GroupHeader2.Height = 1300 + 567 + CorTxtH
      Me.line1Header.Top = 1300 + CorTxtH
      Me.lblDesc.Top = 1300 + CorTxtH
      Me.lblSAPnr.Top = 1300 + CorTxtH
      Me.lblSize.Top = 1300 + CorTxtH
    Else
      Me.GroupHeader2.Height = H_TWIP1 + 567 + CorTxtH
      Me.line1Header.Top = (H_TWIP1 - 50) + CorTxtH
      Me.lblDesc.Top = (H_TWIP1 - 1) + CorTxtH
      Me.lblSAPnr.Top = (H_TWIP1 - 1) + CorTxtH
      Me.lblSize.Top = (H_TWIP1 - 1) + CorTxtH
    End If
   
    Me.Billede.Visible = True
    Me.Billede.Height = H_TWIP1
    Me.Billede.Width = 1500
    Me.Billede.Picture = ImageParth & "\" & Me.IMAGE1
  Else
    Me.Billede.Visible = False
  End If
End Sub