Private Sub lnkSelectFiles_LinkClicked(ByVal sender As System.Object, ByVal _
      e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
      lnkSelectFiles.LinkClicked
        Dim i As Long
        Dim sFiles() As String
 
        With ofdFiles
            .Filter = "Alle Dateitypen (*.*)|*.*"
            .ShowDialog()
 
            sFiles = Split(.FileName, vbNullChar)
 
            If (UBound(sFiles) > 1) Then
                For i = 1 To UBound(sFiles())
                    lstFiles.Items.Add(sFiles(i))
                Next i
            End If
        End With
    End Sub