Public Sub FlexgridSetMultiRowText(Flex As MSFlexGrid, Row As Long, _
                                   Col As Long, sTxt As Variant, _
                                   Optional flexCellAlign As _
                                   MSFlexGridLib.AlignmentSettings = _
                                   flexAlignLeftCenter, _
                                   Optional OptimizeRowHeightAlways As _
                                   Boolean = True)
 
    'MsgBox "Flexgrid Set Multi Row Text"
 
   Dim lblHelp    As Label
   Dim frmParent  As Form
   Dim saveRow    As Long
   Dim saveCol    As Long
   Dim i          As Long
 
      'Label erstellen
      Set frmParent = Flex.Parent
      On Error Resume Next
      Do
         Set lblHelp = frmParent.Controls.Add("VB.Label", "lblHelp" & i)
         If Err.Number = 0 Then
            Exit Do
         End If
         i = i + 1
      Loop
 
      'Flexgrid Cell aktivieren
      With Flex
         .Redraw = False
         saveRow = .Row
         saveCol = .Col
         .Row = Row
         .Col = Col
      End With
 
      'Label auf Cell einstellen
      With lblHelp
         .BorderStyle = 1
         .AutoSize = True
         .WordWrap = True
         .Width = Flex.ColWidth(Col)
         .FontName = Flex.CellFontName
         .FontSize = Flex.CellFontSize
         .FontBold = Flex.Font.Bold
         .Caption = sTxt
      End With
 
      'Cell einstellen, Text zuweisen
      With Flex
         .WordWrap = True
         'RowHeight ggf. vergrössern
         If .RowHeight(Row) < lblHelp.Height Then
            .RowHeight(Row) = lblHelp.Height
         ElseIf .RowHeight(Row) > lblHelp.Height Then
            'RowHeight ggf. verkleinern
            If OptimizeRowHeightAlways Then
               .RowHeight(Row) = lblHelp.Height
            End If
         End If
         ' MsgBox "sTxt: " & sTxt
         .Text = sTxt
 
         .Row = saveRow
         .Col = saveCol
         .Redraw = True
      End With
 
      'aufräumen
      frmParent.Controls.Remove lblHelp
      Set lblHelp = Nothing
      Set frmParent = Nothing
End Sub