Tip Bank

‘ Convert from US gallons to liters, and vice versaFunction USGallonsToLiters(ByVal gallons As Double) As Double Return gallons * 3.785End FunctionFunction LitersToUSGallons(ByVal liters As Double) As Double Return liters /

‘ Convert from cubic yards to cubic meters, and vice versaFunction CubicYardsToCubicMeters(ByVal cuYards As Double) As Double Return cuYards * 0.7646End FunctionFunction CubicMetersToCubicYards(ByVal cuMeters As Double) As Double Return cuMeters

‘ Convert from grains to grams, and vice versaFunction GrainsToGrams(ByVal grains As Double) As Double Return grains * 0.0648End FunctionFunction GramsToGrains(ByVal grams As Double) As Double Return grams / 0.0648End

‘ Convert from feet to meters, and vice versaFunction FeetToMeters(ByVal feet As Double) As Double Return feet * 0.3048End FunctionFunction MetersToFeet(ByVal meters As Double) As Double Return meters / 0.3048End

‘ Convert from square inches to square centimeters, and vice versaFunction SquareInchesToSquareCentimeters(ByVal squareInches As Double) As Double Return squareInches * 6.4516End FunctionFunction SquareCentimetersToSquareInches(ByVal squareCentimeters As Double) As _ Double Return

‘ Convert from miles to kilometers, and vice versaFunction MilesToKilometers(ByVal miles As Double) As Double Return miles * 1.6093End FunctionFunction KilometersToMiles(ByVal kilometers As Double) As Double Return kilometers / 1.6093End

‘ Convert from cubic inches to cubic decimeters, and vice versaFunction CubicInchesToCubicCentimeters(ByVal cuInches As Double) As Double Return cuInches * 16.387End FunctionFunction CubicCentimetersToCubicInches(ByVal cuCent As Double) As Double Return cuCent

If you use VS.NET you know that there are a number of classes that offer visual design-time support, i.e. they can be dragged and dropped on your form, and their

‘ Read all lines from a text file into a String array” Example:’ Dim lines As String() = FileToArray(“D: est.txt”)’ Dim line As String’ For Each line In lines’ Debug.WriteLine(line)’