Imports Microsoft.VisualBasic Imports System Imports System.Linq Imports System.Text Imports DevExpress.ExpressApp Imports DevExpress.Data.Filtering Imports System.Collections.Generic Imports DevExpress.Persistent.Base Imports DevExpress.ExpressApp.Utils Imports DevExpress.ExpressApp.Layout Imports DevExpress.ExpressApp.Actions Imports DevExpress.ExpressApp.Editors Imports DevExpress.ExpressApp.Templates Imports DevExpress.Persistent.Validation Imports DevExpress.ExpressApp.SystemModule Imports DevExpress.ExpressApp.Model.NodeGenerators ' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. Partial Public Class StorageMoveEventsVC Inherits Nuvolar.Module.StorageMoveEventsVC Dim _WaitFormClass As New WaitFormClass Public Sub New() InitializeComponent() RegisterActions(components) ' Target required Views (via the TargetXXX properties) and create their Actions. End Sub Protected Overrides Sub OnActivated() MyBase.OnActivated() ' Perform various tasks depending on the target View. AddHandler DoWork, AddressOf _WaitFormClass.DoWork AddHandler InitWork, AddressOf _WaitFormClass.Initwork AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork End Sub Protected Overrides Sub OnViewControlsCreated() MyBase.OnViewControlsCreated() ' Access and customize the target View control. End Sub Protected Overrides Sub OnDeactivated() ' Unsubscribe from previously subscribed events and release other references and resources. RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork MyBase.OnDeactivated() End Sub End Class