Try
'Log("JobName = " & Job.JobName & ", Success = " & Job.Tag & ", Error = " & Job.ErrorMessage & ", Response Body = " & Job.GetString)
Dim x As String = Job.Tag
Select x
Case 200
Dim Headers As Map= Job.HTag
Dim y As String = Headers.Get("Authorization")
SQL1.ExecNonQuery("UPDATE Parameters Set strUserCredentials = '" & HashedCredentials & "', strToken = '" & y & "', strUserID = '" & txtUsername.Text & "' WHERE id = 1")
Job.Release
StartActivity("HomePage")
Case 401
pnlInfo.Visible = True
lblInfo.Text = "Incorrect Username Or Password Entered"
Case 403
pnlInfo.Visible = True
lblInfo.Text = "User Is Unauthorised. Please Contact Your Administrator"
End Select
Job.Release
Catch
Log("No Connection")
ToastMessageShow("Try Local Logon", True)
End Try