Public Function IsVersionControlEnabled() As Boolean
    ' Check if version control is enabled
    Dim prj As ProjectProperties
    Dim Enabled as Boolean

    Set prj = my_TDConnection.ProjectProperties
        
    If prj.ParamValue("VCS") = "Y" Then
        Enabled = True
        MsgBox "Version control is on"
    Else
        Enabled = False
        MsgBox "Version control is off"
    End If
    
    Return Enabled
End Function