' Connect to the top-level ClearCase application object
Dim CC As New ClearCase.Application
Dim View as CCView
' Get a view from a view-tag.
Set View = cc.View("carol_main")
' Gather properties of the view for display
Dim strSnapShot As String
Dim strActive As String
If View.IsSnapShot Then
strSnapShot = "Snapshot"
Else
strSnapShot = "Dynamic"
End If
If View.IsActive Then
strActive = "active"
Else
strActive = "not active"
End If
' Display some view properties
MsgBox strSnapShot & "View " & View.TagName & " on " & View.Host & _
" is " & strActive & " and has config spec: " & vbCrLf & View.ConfigSpec