Loading And displaying an image using WCF in Silverlight

Imports Load_And_Display.LEADTOOLSWCF 
Imports System.ServiceModel 

Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) 
  Try 
     Dim ofd As OpenFileDialog = New OpenFileDialog() 
     If ofd.ShowDialog() = True Then 
        Dim buffer As Byte() = Nothing 
        Dim fileStream As FileStream = ofd.File.OpenRead() 
        Try 
           buffer = New Byte(fileStream.Length - 1){} 
           fileStream.Read(buffer, 0, CInt(fileStream.Length)) 
        Finally 
           fileStream.Dispose() 
        End Try 
        'Create RasterService and set options 
        Dim client As RasterServiceClient = New RasterServiceClient() 
        Dim binding As BasicHttpBinding = New BasicHttpBinding() 
        binding.MaxReceivedMessageSize = 50000000 
        client.Endpoint.Binding = binding 
        AddHandler client.ConvertCompleted, AddressOf Of ConvertCompletedEventArgs 
        Dim source As RawBinaryData = New RawBinaryData() 
        source.Data = buffer 
        'Create RasterConvertOptions and set conversion options 
        Dim convertOptions As RasterConvertOptions = New RasterConvertOptions() 
        convertOptions.Source = source 
        convertOptions.Destination = Nothing 
        convertOptions.BitsPerPixel = 24 
        convertOptions.Format = Load_And_Display.LEADTOOLSWCF.RasterImageFormat.Png 
        convertOptions.FirstPage = 1 
        convertOptions.LastPage = 1 
        Dim request As ConvertRequest = New ConvertRequest() 
        request.ConvertOptions = convertOptions 
        'Call service 
        client.ConvertAsync(request) 
     End If 
  Catch ex As Exception 
     MessageBox.Show(ex.Message) 
  End Try 
End Sub 

Private Sub client_ConvertCompleted(ByVal sender As Object, ByVal e As ConvertCompletedEventArgs) 
  Try 
     If TypeOf e.Result Is ConvertResponse Then 
        Dim convertResponse As ConvertResponse = CType(IIf(TypeOf e.Result Is ConvertResponse, e.Result, Nothing), ConvertResponse) 
        'Image has been sent back from the service. 
        'Load the image into the viewer. 
        If TypeOf convertResponse.Destination Is RawBinaryData Then 
           Dim ms As MemoryStream = New MemoryStream((CType(IIf(TypeOf convertResponse.Destination Is RawBinaryData, convertResponse.Destination, Nothing), RawBinaryData)).Data) 
           Try 
              Dim codecs As RasterCodecs = New RasterCodecs() 
              viewerControl.Image = codecs.Load(ms) 
           Finally 
              ms.Dispose() 
           End Try 
        End If 
     End If 
  Catch ex As Exception 
     MessageBox.Show(ex.Message) 
  End Try 
End Sub