Imports ZwSoft.ZwCAD.Runtime
Imports System.Drawing
Imports ZwApp = ZwSoft.ZwCAD.ApplicationServices
Public Class ZwcadApp
<CommandMethod("ChangeWindow")> _
Public Sub ChangeWindow()
Dim MWindow As ZwSoft.ZwCAD.Windows.Window = ZwApp.Application.MainWindow
MWindow.Text = "Just a test!"
MWindow.Icon = New Icon("F:\ficon.ico")
ZwApp.Application.ShowAlertDialog("Done!")
End Sub
End Class
Imports System.Drawing
Imports ZwApp = ZwSoft.ZwCAD.ApplicationServices
Public Class ZwcadApp
<CommandMethod("ChangeWindow")> _
Public Sub ChangeWindow()
Dim MWindow As ZwSoft.ZwCAD.Windows.Window = ZwApp.Application.MainWindow
MWindow.Text = "Just a test!"
MWindow.Icon = New Icon("F:\ficon.ico")
ZwApp.Application.ShowAlertDialog("Done!")
End Sub
End Class