Script AppSuit Test

Imports AppSuite
Imports System.Windows.Forms
Imports System.IO
Imports System.Drawing
Imports System

Public Class App
    Public Sub Initialize()
        Dim appSymbol As New EffectedPanel()
        appSymbol.Title = "Test"
        appSymbol.Location = New Point(GetLastSymbol("Menu").Location.X + 10 + appSymbol.Width, GetLastSymbol("Menu").Location.Y)
        appSymbol.TitleLocation = GetLastSymbol("Menu").TitleLocation

        AddHandler appSymbol.OClick, AddressOf Click

        Dim testpage As New Page("Test")
        testpage.Controls.Add(appSymbol)

        AddPage(testpage)

        Add(appSymbol, "Menu")
    End Sub

    Private Sub Click(sender As Object, e As EventArgs)
        SwitchPage("Test")
    End Sub

End Class