0 Пользователей и 1 Гость просматривают эту тему.
Public Sub New() iTunesApplication = New iTunesLib.iTunesApp AddHandler iTunesApplication.OnPlayerPlayEvent, AddressOf Track_Played End Sub Private Sub Track_Played(ByVal sender As Object) Handles iTunesApplication.OnPlayerPlayEvent Dim artist As String = iTunesApplication.CurrentTrack.Artist End Sub Public Sub Dispose() RemoveHandler iTunesApplication.OnPlayerPlayEvent, AddressOf Track_Played Runtime.InteropServices.Marshal.ReleaseComObject(iTunesApplication) System.GC.Collect() iTunesApplication = Nothing End Sub