注意：是类模块，不是模块。别搞错了。 用法： Private Sub Command1_Click() Dim NTSrv As New SetSvc With NTSrv     .Name = "...