closer to working script

git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@1773 7ae35d74-ebe9-4afe-98af-79ac388436b8

bindings/hamlibvb.bas.in

@@ -2,21 +2,21 @@ Attribute VB_Name = "modHL2VB"
 Option Explicit
 
 ' Return error codes
-Public Const RIG_OK As Integer = 0
-Public Const RIG_EINVAL As Integer = 1
-Public Const RIG_ECONF As Integer = 2
-Public Const RIG_ENOMEM As Integer = 3
-Public Const RIG_ENIMPL As Integer = 4
-Public Const RIG_ETIMEOUT As Integer = 5
-Public Const RIG_EIO As Integer = 6
-Public Const RIG_EINTERNAL As Integer = 7
-Public Const RIG_EPROTO As Integer = 8
-Public Const RIG_ERJCTED As Integer = 9
-Public Const RIG_ETRUNC As Integer = 10
-Public Const RIG_ENAVAIL As Integer = 11
-Public Const RIG_ENTARGET As Integer = 12
-Public Const RIG_BUSERROR As Integer = 13
-Public Const RIG_BUSBUSY As Integer = 14
+Public Const RIG_OK As Long = 0
+Public Const RIG_EINVAL As Long = 1
+Public Const RIG_ECONF As Long = 2
+Public Const RIG_ENOMEM As Long = 3
+Public Const RIG_ENIMPL As Long = 4
+Public Const RIG_ETIMEOUT As Long = 5
+Public Const RIG_EIO As Long = 6
+Public Const RIG_EINTERNAL As Long = 7
+Public Const RIG_EPROTO As Long = 8
+Public Const RIG_ERJCTED As Long = 9
+Public Const RIG_ETRUNC As Long = 10
+Public Const RIG_ENAVAIL As Long = 11
+Public Const RIG_ENTARGET As Long = 12
+Public Const RIG_BUSERROR As Long = 13
+Public Const RIG_BUSBUSY As Long = 14
 
 Public Enum rig_debug_level_e
 	RIG_DEBUG_NONE = 0
@@ -27,9 +27,9 @@ Public Enum rig_debug_level_e
 	RIG_DEBUG_TRACE
 End Enum
 
-Public Const RIG_VFO_A As Integer = 1
-Public Const RIG_VFO_B As Integer = 2
-Public Const RIG_VFO_CURR As Integer = 536870912
+Public Const RIG_VFO_A As Long = 1
+Public Const RIG_VFO_B As Long = 2
+Public Const RIG_VFO_CURR As Long = 536870912
 
 Public Const RIG_PASSBAND_NORMAL As Long = 0
 
@@ -65,32 +65,32 @@ End Enum
 
 
 Declare Function rig_set_debug Lib "hamlib@ABI_VERSION@.dll" (ByVal debug_level As rig_debug_level_e) _
-    As Integer
-
-
-Declare Function rig_init Lib "hamlib@ABI_VERSION@.dll" (ByVal rig_model As Integer) _
     As Long
-Declare Function rig_open Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long) _
-    As Integer
-Declare Function rig_close Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long) _
-    As Integer
-Declare Function rig_cleanup Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long) _
-    As Integer
+
+
+Declare Function rig_init Lib "hamlib@ABI_VERSION@.dll" (ByVal rig_model As Long) _
+    As Object
+Declare Function rig_open Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object) _
+    As Long
+Declare Function rig_close Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object) _
+    As Long
+Declare Function rig_cleanup Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object) _
+    As Long
 
 
 
-Declare Function rig_set_freq Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long, ByVal vfo as Integer, ByVal freq As Double) _
-    As Integer
-Declare Function rig_get_freq Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long, ByVal vfo as Integer, freq As Double) _
-    As Integer
+Declare Function rig_set_freq Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object, ByVal vfo as Long, ByVal freq As Double) _
+    As Long
+Declare Function rig_get_freq Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object, ByVal vfo as Long, freq As Double) _
+    As Long
 
-Declare Function rig_set_mode Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long, ByVal vfo as Integer, ByVal mode As RMode_t, ByVal width As Long) _
-    As Integer
-Declare Function rig_get_mode Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long, ByVal vfo as Integer, mode As RMode_t, width As Long) _
-    As Integer
+Declare Function rig_set_mode Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object, ByVal vfo as Long, ByVal mode As RMode_t, ByVal width As Long) _
+    As Long
+Declare Function rig_get_mode Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object, ByVal vfo as Long, mode As RMode_t, width As Long) _
+    As Long
 
-Declare Function rig_set_vfo Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long, ByVal vfo as Integer) _
-    As Integer
-Declare Function rig_get_vfo Lib "hamlib@ABI_VERSION@.dll" (RIGptr As Long, vfop as Integer) _
-    As Integer
+Declare Function rig_set_vfo Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object, ByVal vfo as Long) _
+    As Long
+Declare Function rig_get_vfo Lib "hamlib@ABI_VERSION@.dll" (ByVal RIGptr As Object, vfop as Long) _
+    As Long