Sub CreateListItemRhythmus(btm As Bitmap, score As Int, rhythmus As String, Width As Int, Height As Int) As Panel
Dim p As B4XView = xui.CreatePanel("") 'Dim p As Panel
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("viewItmTaskRhtm") '<--- this works only, if the file does not exist
lblNr.Text = score
imgStatus.SetBitmap(btm)
lblItmInfo.Font = Font.CreateNew2("Rhythms", 20) ' lblItmInfo.Typeface = tf
lblItmInfo.Text = mDrum.GetRhythmusString(rhythmus, True, True, False)
Return p
End Sub