Public Sub serializeCommand(ByVal command As AbsCommand)
   Dim fsXmlFile As System.IO.FileStream("test.xml")
	Dim objSerializer As System.Xml.Serialization.XmlSerializer			
   objSerializer = New System.Xml.Serialization.XmlSerializer(command.GetType())	
	objSerializer.Serialize(fsXmlFile, command)
	Me.fsXmlFile.Close()  
End Sub

Public Function deserializeCommand() As AbsCommand
		Dim retCommand As AbsCommand   
		Me.fsXmlFile = New System.IO.FileStream("test.xml", IO.FileMode.Open)
	   	objSerializer = New System.Xml.Serialization.XmlSerializer(GetType( _
  AbsCommand))
	   	retCommand = objSerializer.Deserialize(fsXmlFile)
	   	Me.fsXmlFile.Close()
	   	return retCommand
	End Function

objSerializer = New System.Xml.Serialization.XmlSerializer(GetType(AbsCommand))
         retCommand = objSerializer.Deserialize(fsXmlFile)