Private Sub ListV_DblClick()
    On Error Resume Next
    Dim Path$, Datei$
    Dim Msg As String
    Path$ = Dir1.Path
    If Right(Path, 1) <> "\" Then Path = Path + "\"
    If selected_index <> "" Then Datei$ = Path$ + ListV.ListItems(selected_index)
    Set frmMain.imgTable.Picture = LoadPicture()
    Set frmMain.imgTable.Picture = LoadPicture(Datei$)
'    Msg = Datei
'    MsgBox Datei
        If Err Then
            Msg = "Datei nicht gefunden."
            MsgBox Msg   ' Fehlermeldung anzeigen.
            Exit Sub   ' Bei Fehler beenden.
        End If
   'Unload frmListV
End Sub