Private Sub initialize_image_Delegate()
        Try
            Dim space As Byte = 5
 
            If mCabinSequence.cabin_seq.Count > 0 Then
                For i As Byte = 0 To mCabinSequence.cabin_seq.Count - 1
                    Dim zeile As Byte = i \ 14
 
                    Dim pbox As New PictureBox()
                    With pbox
                        .Height = 65
                        .Width = 64
                        .Left = (i * 64 + space) - (zeile * 896)
                        .Top = (zeile * 65) + space
                        .Image = mCabinSequence.cabin_seq(i).Picture
                        .Parent = Me.Panel1
                        '.Visible = False
                    End With
 
                    Dim lbl As New Label()
                    With lbl
                        .Height = 13
                        .Width = 26
                        .Left = pbox.Left + 26 - space
                        .Top = pbox.Top + 39 - space
                        .Text = Format(mCabinSequence.cabin_seq(i).ID, "000")
                        .Visible = True
                        '.BackColor = Color.LightGray
                        .BackColor = Color.Orange
                        .ForeColor = Color.Black
                        .Parent = pbox
                        '.Show()
                    End With
 
                Next
            End If
        Catch ex As Exception
            MessageBox.Show("initialize_image: " & vbCrLf & ex.Message)
        End Try
 
    End Sub