Dim player As New WMPLib.WindowsMediaPlayer
Dim AllMedia As IWMPMediaCollection2 = player.mediaCollection
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
    Dim Query As IWMPQuery
    AllMedia = player.mediaCollection
    Query = AllMedia.createQuery
    Query.addCondition("Artist", "Contains", "Hosen")
    player.currentPlaylist = AllMedia.getPlaylistByQuery(Query, "Audio", _
      "Title", True)
    player.controls.play()
End Sub