'Show how all the intrinsic objects work

Sub CheckBox1_Click
    Print "CheckBox1 was clicked"
End Sub

Sub CommandButton1_Click
    Print "CommandButton1 was clicked"
End Sub

Sub OptionButton1_Click
    Print "OptionButton1 was clicked"
End Sub

Sub OptionButton2_Click
    Print "OptionButton2 was clicked"
End Sub

Sub OptionButton3_Click
    Print "OptionButton3 was clicked"
End Sub

Sub ComboBox1_Change
    Print "New value of ComboBox1 is " & comboBox1.listIndex
End Sub

Sub ListBox1_Change
    Print "New value of ListBox1 is " & ListBox1.listIndex
End Sub

Sub TriButton1_Click
    Print "New value is TriButton1 is " & triButton1.value
End Sub

Sub IntrinsicObjects_Load
    Dim i
    
    'load the ComboBox
    For i = vbSUNDAY TO vbSATURDAY
      ComboBox1.AddItem WEEKDAYNAME(i)
    Next
    ComboBox1.ListIndex = WEEKDAY(NOW-1)
    
    'load the ListBox
    For i = vbSUNDAY TO vbSATURDAY
      ListBox1.AddItem WEEKDAYNAME(i)
    Next
    ListBox1.ListIndex = WEEKDAY(NOW-1)
    
    'load the general explanation
    textbox3.text="This form features all of NS Basic/Desktop's intrinisc objects. These objects are contained within NS Basic/Desktop: no external controls are needed to use them."
    
 
End Sub



Sub HScrollBar1_Change
  Print hScrollbar1.value
End Sub