Private Sub UserForm_Activate()
 
    ' Die verwendeten Icons stammen aus dem Ordner 
    ' "Microsoft Office\Office\forms\1031"
    ' Die Icons im gleichen Ordner wie dein Workbook speichern
 
    ' .picture-Eigenschaft der Userform:
    UserForm1.Picture = LoadPicture(ThisWorkbook.Path & "\OOFL.ico")
 
    ' .picture-Eigenschaft des Commandbuttons
    With CommandButton1
        .Picture = LoadPicture(ThisWorkbook.Path & "\CNFNOT.ico")
        .PicturePosition = fmPicturePositionLeftCenter
        .Caption = "    Schliessen"
    End With
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!