Private Declare Function InitCam Lib "camdll.dll" (ByVal DeviceNo As Integer) As Integer
Private Declare Function PanTiltCam Lib "camdll.dll" (ByVal x As Integer, ByVal y As Integer) As Integer
Private Declare Function CenterCam Lib "camdll.dll" () As Integer
Private Declare Function FreeCam Lib "camdll.dll" () As Integer

So sollte das mit dem einbinden der dll hinhauen. Ansonsten mal Fehlermeldung posten.