Dim AircraftStream As New System.IO.FileStream( _
          My.Application.Info.DirectoryPath & "\Doc\Doc8643.xml", _
          IO.FileMode.Open)
        Dim AircraftStreamCompressed As New System.IO.Compression.GZipStream( _
        AircraftStream, IO.Compression.CompressionMode.Decompress, True)
        AircraftData.ReadXml(AircraftStreamCompressed, XmlReadMode.Auto)
        AircraftStream.Close()
        AircraftStreamCompressed.Close()

   ' Dim AircraftStream As New System.IO.FileStream( 
   ' My.Application.Info.DirectoryPath & "\Doc\Doc8643Comp.xml", 
   ' IO.FileMode.Create)
        '   Dim AircraftStreamCompressed As New 
        ' System.IO.Compression.GZipStream(AircraftStream, 
        ' IO.Compression.CompressionMode.Compress, True)
 
         AircraftData.WriteXml(AircraftStreamCompressed)
        AircraftStreamCompressed.Close()
        AircraftStream.Close()

 Dim i2 As Integer
                    For i2 = 1 To LAY(i).Drawcoordinates.GetUpperBound(0)
                        Dim kante1, kante2 As Point
                        kante1.X = ((Main.picMap.ClientRectangle.Width / 2) + ( _
                          LAY(i).Drawcoordinates(i2).X1 / 50 * Zoom))
                        kante1.Y = ((Main.picMap.ClientRectangle.Height / 2) - ( _
                        LAY(i).Drawcoordinates(i2).Y1 / 50 * Zoom))
                        kante2.X = ((Main.picMap.ClientRectangle.Width / 2) + ( _
                        LAY(i).Drawcoordinates(i2).X2 / 50 * Zoom))
                        kante2.Y = ((Main.picMap.ClientRectangle.Height / 2) - ( _
                        LAY(i).Drawcoordinates(i2).Y2 / 50 * Zoom))
 
                            .DrawLine(LAYLine, kante1, kante2)
                    Next i2

LG,
Andi