Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
s1.Initialize("s1")
MainForm.RootPane.AddNode(s1, 10, 0, 300, 100)
Dim btn As Button
btn.Initialize("ExitButton")
btn.Text = "Programm verlassen"
MainForm.RootPane.AddNode(btn,25,150,250,50)
s1.MaxValue = 100
s1.MinValue = 0
s1.Value =80
End Sub
Sub S1_ValueChange (Value As Double)
If s1.Value = 100 Then Berechnung.Berechnung_Test
End Sub
Sub ExitButton_Action
MainForm.Close
End Sub