Application.Devices.enable = true
set oDevice = Application.Devices.Item("Mouse")
If TypeName (oDevice) = "Nothing" Then
set oDevice = Application.Devices.AddDevice( "Mouse" )
End If
set oChannels = oDevice.Channels
for each oChannel in oChannels
         logmessage "Channel: " & oChannel
next