Me.scMyScriptCtrl.Eval("Main")

  Me.scMyScriptCtrl.Language = "JavaScript"

Public Sub HelloWorld(ByVal sHelloMsg As String)
  MsgBox sHelloString, vbOkOnly + vbInformation, "Hello World"
End Sub

Private Sub Form_Load()
  Dim myCls As New CMyClass
  Me.scMyScriptCtrl.Language = "JavaScript"
  Me.scMyScriptCtrl.AddObject "MyClass", myCls, True
  Me.scMyScriptCtrl.AddCode "MyClass.HelloWorld('Hallo alle miteinander.');"
End Sub

function CMyClass(sHelloMessage) {
  //Klassendefinition und Konstruktorcode
  this.sHelloMsg = (sHelloMessage)? sHelloMessage : 'Hallo Welt';
  this.showHello = CMyClass_showHello;
}
 
function CMyClass_showHello() {
  /*
    Implementierung von "showHello"
    Wenn man dem ScriptControl ein Form Objekt mit einem Label übergeben hat,
    könnte man jetzt hier den Labeltext ändern und das Form Anzeigen
  */
}
 
var myObj = new CMyClass('Hallo Alle zusammen'); //Objekt erstellen
myObj.showHello(); //showHelloAufrufen