>I am trying to adapt this method to use a Using syntax:
>
>

>    ' Add the HTTP header
>    Public Function AddHTTPHeader() As Boolean
>        Dim lcName As String = ""
>        Dim lcValue As String = ""
>        Dim loObject(2) As Object
>        Dim loHttpRequestMessageProperty As System.ServiceModel.Channels.HttpRequestMessageProperty = New System.ServiceModel.Channels.HttpRequestMessageProperty()
>
>        ' Reset the values
>        lSuccess = False
>
>        ' If we have at least one HTTP header
>        If oHTTPHeader.Count > 0 Then
>
>            ' For each header
>            For Each loObject In oHTTPHeader
>
>                ' Initialization
>                lcName = loObject(1)
>                lcValue = loObject(2)
>
>                ' Add the header
>                loHttpRequestMessageProperty.Headers(lcName) = lcValue
>
>            Next
>
>            ' Set the header
>            OperationContext.Current.OutgoingMessageProperties(System.ServiceModel.Channels.HttpRequestMessageProperty.Name) = _
>             loHttpRequestMessageProperty
>
>        End If
>
>        lSuccess = True
>
>        Return lSuccess
>    End Function
>

>
>So, I thought I would use this:
>
>

>    ' Add the HTTP header
>    Public Function AddHTTPHeader() As Boolean
>        Dim lcName As String = ""
>        Dim lcValue As String = ""
>        Dim loObject(2) As Object
>
>        ' Reset the values
>        lSuccess = False
>
>        Using loHttpRequestMessageProperty = New System.ServiceModel.Channels.HttpRequestMessageProperty()
>
>            ' If we have at least one HTTP header
>            If oHTTPHeader.Count > 0 Then
>
>                ' For each header
>                For Each loObject In oHTTPHeader
>
>                    ' Initialization
>                    lcName = loObject(1)
>                    lcValue = loObject(2)
>
>                    ' Add the header
>                    loHttpRequestMessageProperty.Headers(lcName) = lcValue
>
>                Next
>
>                ' Set the header
>                OperationContext.Current.OutgoingMessageProperties(System.ServiceModel.Channels.HttpRequestMessageProperty.Name) = _
>                 loHttpRequestMessageProperty
>
>            End If
>
>        End Using
>
>        lSuccess = True
>
>        Return lSuccess
>    End Function
>

>
>The designer does not compliant but the run time does with a message:
>
>"Unable to cast object of type 'System.ServiceModel.Channels.HttpRequestMessageProperty' to type 'System.IDisposable'."
>
>I was pretty sure this was the same representation. Anyone knows what I am missing?

Based on the error message only this class doesn't implement IDisposable interface which means you can not wrap it into using statement.