Dim request As HttpRequest
URLZap = "http://" & main.boxip & ":" & main.boxport & "/cgi-bin/zapTo?path=" & myChanCode
request.InitializeGet(URLZap)
request.Timeout = 5000 'set timeout to 5 seconds
If HttpChanClient1.ExecuteCredentials(request,2,main.BoxUser,main.BoxPassword)=False Then Return
ProgressDialogShow("changing channel")