Public Function sevMsgBox(ByVal sÜberschrift As String, _
                           Optional ByVal sMeldung As String, _
                           Optional ByVal sButton_Text_1 As String, _
                           Optional ByVal sButton_Text_2 As String, _
                           Optional ByVal sButton_Text_3 As String, _
                           Optional ByVal sIcon As Long = 0) As sevMsgBoxResult
 
   On Error GoTo Err_Handle
 
   Dim oMsgBox As New sevXPControls.sevMsgBox
   Dim oButtons As sevMsgBoxStyle
 
   With oMsgBox
      .UseSEVCommand = True
      .ButtonStyle = vbBtnXP
      .ShowButtonPictures = False
      .BackColor = &HFDCEBB
      .Font.Bold = True
      .Font = "Calibri"
      .Font.Size = "11"
 
      If sButton_Text_1 > "" Then
         oButtons = 0
         .LanguageText(vbButtonYes) = sButton_Text_1
      End If
      If sButton_Text_2 > "" Then
         oButtons = 4
         .LanguageText(vbButtonNo) = sButton_Text_2
      End If
      If sButton_Text_3 > "" Then
         oButtons = 3
         .LanguageText(vbButtonCancel) = sButton_Text_3
      End If
 
      sevMsgBox = .MsgBox(sMeldung, oButtons + sIcon, sÜberschrift)
 
      Select Case sevMsgBox
         Case 6, 1:  sevMsgBox = 1
         Case 7:     sevMsgBox = 2
         Case 2:     sevMsgBox = 3
      End Select
 
   End With
 
   Set oMsgBox = Nothing
   Exit Function
 
Err_Handle:
   Fehler "sevMsgBox"
End Function