by Onmitsu (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB Script
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (4 Votes)
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
Download Compass Control (27 KB)