Dim oCW

set oCW = CreateObject("AAG_CloudWatcher.CloudWatcher")
oCW.Device_Start()

' start recording preserving current contents
oCW.RecordStart True

Set oCW=nothing