Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Assign value from a TextBox to a Spinner
Private Sub TextBox1_Change()
      Dim NewVal As Integer
      NewVal = Val(TextBox1.Text)
      If NewVal >= SpinButton1.Min And _
          NewVal <= SpinButton1.Max Then _
          SpinButton1.Value = NewVal
  End Sub