[Nav1 & 2 OBS and radial required.]

Does anyone have any VB6 code for NAV1 OBS or radial

0C4E 2 NAV1 OBS setting (degrees, 0–359)

0C50 2 NAV1 radial ( *360/65536 for degrees)

and

02A0 2 Magnetic variation (signed, –ve = West). For degrees *360/65536. Convert True headings to Magnetic by subtracting this value, Magnetic headings to True by adding this value.

Just being lazy really but Im hard up for time at present

Loads of code to offer in return!

Cheers

Mark