Dim lbl As New Label()
With lbl
  .Parent = pbox
  .Height = 13
  .Width = 26
  .Left = 26 - space
  .Top = 39 - space
  .Text = Format(mCabinSequence.cabin_seq(i).ID, "000")
  .Visible = True
  '.BackColor = Color.LightGray
  .BackColor = Color.Orange
  .ForeColor = Color.Black
  '.Show()
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de