Option Explicit
 
Property Get LabelCaption(PictureBox As PictureBox) As String
  LabelCaption = PictureBox.Tag
End Property
 
Property Let LabelCaption(PictureBox As PictureBox, ByVal Description As String)
  With PictureBox
    .AutoRedraw = True
    .BorderStyle = 0
    .Cls
    PictureBox.Print Description
    .Height = Picture1.TextHeight(Description) + Screen.TwipsPerPixelY
    .Width = Picture1.TextWidth(Description) + Screen.TwipsPerPixelX
    .Tag = Description
  End With
End Property
 
Private Sub Command1_Click()
  MsgBox LabelCaption(Picture1)
End Sub
 
Private Sub Form_Load()
  LabelCaption(Picture1) = "Label-Beschriftung"
End Sub

Viel Spass,
R@lf