DioWindows Object Sample Program

The following example demonstrates how to use DioWindows Object as follows:

●     Create new DioApplication object.

●     Return reference to a DioWindows Object.

●     Add two new windows.

●     Cascade all windows

●     Return reference to a DioWindow Object specified by index number one.

Dim dioapp As New DioApplication

Dim dioWindows As DioWindows

dioWindows.Add

dioWindows.Add

dioWindows.Arrange = dioWindowsArrangeCascade

Set dioWindow = dioWindows.Window (1)