/Win/WindowsScript Test
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Win/WindowsScript Test
This example is the version from Sun, 2nd Jan 2010.
Notes: Last modified: Sun, 2nd Jan 2010

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = &Beenden
  Const kEditClear =
  
  // Event implementations
  Function UnhandledException(error As RuntimeException) As Boolean
    MsgBox "Exception in REALbasic: "+error.Message
    
    Return true
    
  End Function
End Class

Class Window1
Inherits Window
  // Controls
  ControlInstance
    Sub Action() Handles Event
      w.Language = "VBScript"
      
      MsgBox w.Eval("1+2")
      
    End Sub
  End ControlInstance
  ControlInstance
    Sub Action() Handles Event
      w.Language = "VBScript"
      
      w.AddCode "a = 1"
      w.AddCode "b = 2"
      w.AddCode "c = 3"
      
      w.AllowUI = true
      w.ExecuteStatement "msgbox a+b+c"
      
      
    End Sub
  End ControlInstance
  
  // Properties
  Dim w As WindowsScriptMBS
  
  // Event implementations
  Sub Open()
    w = new WindowsScriptMBS
    
  End Sub
End Class