Private Sub Form_Load()
 
    Check1.Tag = "Prüfsumme"
    Check2.Tag = "ShowInTaskbar"
    Check3.Tag = "StartUpPosition"
 
    lblCheck.AutoSize = True
    lblCheck.Visible = False
    Call chkCheckboxCaptions(Me)
 
End Sub
 
Public Sub chkCheckboxCaptions(fForm As Form)
On Error Resume Next
 
    Dim chkBox As CheckBox
 
        For Each chkBox In fForm
 
            Set lblCheck.Font = chkBox.Font
            lblCheck.Caption = chkBox.Tag
 
            If lblCheck.Width > (chkBox.Width - 350) Then
 
                While lblCheck.Width > (chkBox.Width - 350) And Not _
                  lblCheck.Caption = ""
                    lblCheck.Caption = Mid(lblCheck.Caption, 1, Len( _
                    lblCheck.Caption) - 1)
                Wend
                If Len(lblCheck.Caption) > 3 Then
                    lblCheck.Caption = Mid(lblCheck.Caption, 1, Len( _
                      lblCheck.Caption) - 3)
                    chkBox.Caption = lblCheck.Caption & "..."
                Else
                    chkBox.Caption = lblCheck.Caption
                End If
            Else
                chkBox.Caption = lblCheck.Caption
            End If
 
        Next
 
        lblCheck.Caption = ""
 
End Sub

Mit freundlichen Gr??en,
Andy G.