Private Sub Confirrmshipment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
While True

DispatchOrders()
FnUpdateEbayStatus()
FnUpdateBuyComStatus()
UnshipedReports()
toCheckManualOrders()

Try

Dim sleepTimeCal As Integer = 0
sleepTimeCal = 1000 * 60 * Convert.ToInt32(ConfigurationManager.AppSettings.Get("SleepInterval"))
Thread.Sleep(sleepTimeCal)
Catch ex As Exception

Finally

End Try

End While


End Sub