iTunesアプリケーションを処理待ちにしないようにするには？ (ID:139734)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いつも勉強させていただいております。

下記のようなiTunesアプリを作っているのですが、IE側の処理を行っている間もiTunesの操作が受け付けられず、処理待ちになってしまいます。

NextProgram()側の処理ではiTunesオブジェクトを参照しないように気をつけているつもりなのですが、何か根本的に間違っているのでしょうか？
（DoEvents処理でも解決されませんでした・・・）

お手数をおかけしますが、ご指導いただければと存じます。

'-----------------------------------------------------------
Dim StriTunesTrName As String

Public Sub BtnChangeArtistTxt(ByVal StriTunesArtistName As String)
   'WebからBPMを調査
   Dim iTunesApp As New iTunesApp
   Dim Track As IITTrack

'〜iTunes側の処理〜

Track = Nothing
   iTunesApp = Nothing

NextProgram(TxtText)
End Sub

Public Function NextProgram(ByVal TxtTextAs String)
   URL = "" 'HPアドレス

ie = CreateObject("InternetExplorer.application")
   ie.Visible = False
   ie.Navigate2(URL)

'ページ読み込み待ち
   Do While ie.Busy = True
      System.Windows.Forms.Application.DoEvents()
   Loop

Dim objHtml As mshtml.HTMLDocument
   objHtml = ie.Document

'〜IE側での処理〜

ie.Document.forms(0).submit()

ie.Quit()
   ie = Nothing
End Function
'-----------------------------------------------------------

←解決時は質問者本人がここをチェックしてください。