Compass Control

Custom Compass control, will show direction or degrees. Private Sub Text1_Change() 'some basic error checking If Val(Text1.Text) > 359 Then Text1.Text = (Val(Text1.Text) - 360) End If 'call the control Compass.Value = Text1.Text End Sub Easy example of using sin in graphics applications.