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 原文链接：https://www.f2er.com/vb/258736.html