VS 2010 Asynchronoous Serialization

Public Function Serialize(FileName As String, Obj As Object, XML As Boolean) As Boolean
        ' Serializes an object. XML = True if XML serializing, otherwise Binary. Returns True if no errors.
        Dim S As FileStream = Nothing
        Dim F As Object
        Serialize = True
 
        Try
            If XML Then
                F = New Xml.Serialization.XmlSerializer(Obj.GetType)
            Else
                F = New BinaryFormatter
            End If
            S = New FileStream(FileName, FileMode.Create)
            F.Serialize(S, Obj)
        Catch ex As Exception
            MessageBox.Show("Error Saving '" & ShortenPath(FileName) & "'" & vbNewLine & vbNewLine & ex.Message, "File Save Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Serialize = False
        Finally
            If S IsNot Nothing Then S.Close()
        End Try
End Function

Success = Serialize(FileName, Me, True)