Public Structure log
		Dim time As Int32	' Sekunden
		Dim alt As Double	' ft
		Dim speed As Double	' ft/sec^2
		Dim fuel As Int32	' "units"
		Dim burn As Int32	' "units"
		Public Sub New(ByVal zeit As Int32, ByVal hoehe As Double, ByVal geschw As _
  Double, _
		 ByVal benzin As Int32, ByVal schub As Int32)
			time = zeit
			alt = hoehe
			speed = geschw
			fuel = benzin
			burn = schub
		End Sub
	End Structure
 
	Private _shiplog As New gen.List(Of log)

_shiplog.Add(New log(_time, _altitude, _speed, _fuel, _burn))

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)