Public Function loginSF() As Boolean
        If LoggedIn Then
            MsgBox("You are already logged in!", vbOKOnly)
            Return False
        End If
        Dim loginClient As SoapClient = New ApexApi.SoapClient
        Dim Username As String = "my username"
        Dim Password As String = "mypword+token"
        loginClient = New SoapClient()
        Try
            Console.WriteLine(vbLf & "Logging in..." & vbLf)
            lr = loginClient.login(Nothing, Username, Password)
        Catch ex As Exception
            MsgBox("An unexpected error has occurred: " & vbCrLf & ex.Message)
            Return False
        End Try
        If lr.passwordExpired Then
            Console.WriteLine("An error has occurred. Your password has expired.")
            Return False
        End If
        Dim endpoint As New EndpointAddress(lr.serverUrl)
        Header.sessionId = lr.sessionId
        ' Create and cache an API endpoint client
        Dim client As New SoapClient("Soap", endpoint)
        Return True
    End Function

    Private Sub btnLogOut_Click()
        'works well
    End Sub

    Private Sub btnGlobalSample_Click(sender As Object, e As EventArgs) Handles btnGlobalSample.Click
        Try
            Client.describeGlobal(Header, Nothing, dgr)
            txtResult.Text = ""
            txtResult.Text = "Describe Global Results:" & vbLf
            ' Loop through the array echoing the object names to the console
            For i As Integer = 0 To dgr.sobjects.Length - 1
                txtResult.Text = (dgr.sobjects(i).name) + vbCrLf
            Next
        Catch ex As Exception
            MsgBox("An exception has occurred: " & vbCrLf & ex.Message & vbLf & "Stack trace: " & vbCrLf & ex.StackTrace)
        End Try
    End Sub