示例：创建开关量标签

Sub CreateDigitalTag()
On Error GoTo ErrHandler
Dim userTag As Tag

Set userTag = TagDB.CreateTag("Test\Digital", DigitalTag)
userTag.Description = "This is a test digital tag"
userTag.OnLabel = "Running"
userTag.OffLabel = "Stopped"
userTag.WriteConfiguration

'Release resources.
Set userTag = Nothing

ErrHandler:
If Err Then
MsgBox Error

'Release resources.
Set userTag = Nothing

Exit Sub
End If

End Sub