InsertPictureInRichTextBox rtbBox(4), LoadPicture(Bildpfad)

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Index
Case 2
     Dim i As Integer
     Dim Picture As StdPicture
     Dim Bildpfad, Bildname As String
     i = ButtonMenu.Index - 1
     On Error GoTo fehler
     With cd3
        .CancelError = True
        .Filter = "Bilder |*.bmp;*.jpg;*.gif||"
        .ShowOpen
            If .FileName <> "" Then
                Bildpfad = .FileName    'Pfad
                Bildname = .FileTitle     'Dateiname
                InsertPictureInRichTextBox rtbBox(i), LoadPicture(Bildpfad) _
                  'Bild in rtbBox 1
            Else
                Exit Sub
            End If
    End With
fehler:
End Select