Private Sub context_buegel_MouseHover(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles context_buegel.MouseHover
 
        Try
            Dim sender_info As String = DirectCast(sender, Control).text 'so 
            ' hatte ich mir das gedacht leider kommt da nur der Text den 
            ' Contextmenues und nicht der Text des Eintrags
            Dim splitted_info()
            ReDim splitted_info(0)
 
            splitted_info = Split(Trim(sender_info), "/")
 
            frm_splash_pic.lbl_familie.Text = splitted_info(0)
            frm_splash_pic.lbl_artikel.Text = splitted_info(1)
            frm_splash_pic.lbl_beschreibung.Text = splitted_info(2)
 
            If System.IO.File.Exists(picture_path & splitted_info(1) & ".jpg") _
              = True Then
                frm_splash_pic.PictureBox1.Load(picture_path & splitted_info(1) _
                & ".jpg")
            Else
                frm_splash_pic.PictureBox1.Load(Nothing)
            End If
 
 
 
 
        Catch ex As Exception
 
        End Try
 
    End Sub