Public Sub Test(ByVal pfad As String, ByVal titel As Titel)
 
End Sub
Public Sub Test(ByVal pfad As String, ByVal album As Album)
 
End Sub 
 
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
 
     Test("c:\lklk", New Album With {.Name = "AlbumX"})
 
     Test("c:\lklk", New Titel With {.Name = "TitelX"})
 
End Sub
 
 
 
 
 Public Class Titel
     Private _Name As String
     Public Property Name() As String
         Get
             Return _Name
         End Get
         Set(ByVal value As String)
             _Name = value
         End Set
     End Property
 End Class
 
 Public Class Album
     Private _Name As String
     Public Property Name() As String
         Get
             Return _Name
         End Get
         Set(ByVal value As String)
             _Name = value
         End Set
     End Property
 End Class

Gruß
Christoph