Dim wt As System.Threading.Thread Dim ts As System.Threading.ThreadStart ts = AddressOf Worker.DoWork wt = New System.Threading.Thread(ts) wt.Start() defrag.StartInfo.FileName = ...