Private Sub OutBarWSP_GroupClick(ByVal Group As Long)
    Select Case OutBarWSP.Groups(Group).Key
        Case "WebShop"
           mdi_WSP.Picture = LoadPicture(App.Path & _
             "\Daten\Images\System\WebShop.jpg")
 
        Case "Logistik"
           mdi_WSP.Picture = LoadPicture(App.Path & _
             "\Daten\Images\System\Logistik.jpg")
    End Select
End Sub