Dim Writer As New StreamWriter(Application.StartupPath & _
     "\Setting\FoodBase\" & Food.ID & "\food.base.bas")
                Dim Line As String = ""
                For Each FoodProperty As PropertyInfo In _
                  Food.GetType.GetProperties
                    Try
                        Line = Line & FoodProperty.Name & "=" & Food.GetValue( _
                          FoodProperty.Name) & ";"
                    Catch ex As Exception
 
                    End Try
                Next
                Line = Line.Remove(Line.Length - 1, 1)
                Writer.WriteLine(Line)
                Writer.Flush()
                Writer.Close()