• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Compass Control

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.

Inputs
.Value

Rate Compass Control

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Download Compass Control