VB.net Вложенные Структуры

---

Во - первых, это мой первый пост здесь, так что я надеюсь, что я разместил это правильно. Я много раз использовал этот сайт, чтобы найти ответы на другие вопросы, но мне никогда раньше не приходилось публиковать вопрос.

У меня есть VB.net программа, которую я использую для связи с контроллером Fanuc CNC с интерфейсом ПК, используя библиотеки Fanuc Focas. Контроллер ЧПУ Fanuc управляет работой станка, который используется для резки металлических деталей. Контроллер Fanuc имеет ряд макропеременных, используемых для хранения числовых значений. В настоящее время я могу вызывать различные функции Fanuc для чтения и записи одной переменной одновременно.
Мой VB.net в настоящее время программа считывает несколько макропеременных одновременно с помощью таймера, поэтому я хотел бы ограничить количество звонков, которые я делаю в Fanuc. Я заметил, что Fanuc также предлагает другую функцию, которая может быть использована либо для чтения, либо для записи ряда переменных одновременно. Я пытался заставить эту функцию работать, но мне не везло.

В документации, которую я получил от Fanuc, есть пример, но он выглядит так, как будто написан на C++. Я позвонил в техническую поддержку в Fanuc, и они предоставили мне несколько файлов примеров VB, которые выглядят так, как будто они были написаны в коде до VB6
Основываясь на всей этой информации, я создал следующий код. Структура, которую использует FANUC для этой функции, имеет вложенную структуру, и я никогда раньше не делал ничего подобного. Я попробовал написать вложенную структуру 2 способами. В Примере C++ я показал вложенную структуру, определенную в первичной структуре. Пример VB3 показал вложенную структуру как свою собственную структуру, которая вызывается первичной структурой. Оба способа не сработали. Я думаю, что это то, где у меня есть моя проблема, потому что другие функции, которые я использовал для чтения/записи отдельных переменных, не являются вложенными. Ниже приведен пример кода, который я использую:

Сооружения:

<StructLayout(LayoutKind.Sequential, Pack:=4)> _
    Public Structure IODBMR
        Public datano_s As Short  ' start macro number 
        Public dummy As Short     ' dummy 
        Public datano_e As Short  ' end macro number 
        Public data() As IODBMR_data ' data
    End Structure
   
 <StructLayout(LayoutKind.Sequential,Pack:=4)> _
    Public Structure IODBMR_data
        Public mcr_val As Integer ' macro variable 
        Public dec_val As Short   ' decimal point 
    End Structure

вызов функции:

' read custom macro variables(area specified)
   Declare Function cnc_rdmacror Lib "FWLIB32.DLL" _
       ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBMR ) As Short

Код для чтения 5 переменных одновременно:

Private Sub BtnReadMacroRange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReadMacroRange.Click
        'Read a series of 5 variables from the Fanuc
        'StartVar = start macro variable number which is input via the GUI
        'End Var = ending macro variable number which is input via the GUI
        'Length = length of structure which is input via the GUI
        Try
            Dim StartVar As Integer = CInt(Me.TxtStartVar.Text)
            Dim EndVar As Integer = CInt(Me.TxtEndVar.Text)
            Dim Length As Integer
            Dim McrVal As Integer
            Dim DecVal As Integer
            Dim VariableNumber As Integer
            Dim Result As String = Nothing
            Dim MacroRange As New Focas1.IODBMR
            Length = CInt(Me.TxtReadMacroRangeLength.Text)

            'Call the Fanuc Function
            'FlibHndl needs to be obtained first
            nRet = Focas1.cnc_rdmacror(FlibHndl, StartVar, EndVar, Length, MacroRange)
            'MsgBox("FlibHndl = " & FlibHndl)
            TextBox1.Text = CStr(nRet)
            'Read the result of a single variable and write the info to the GUI
            For x As Integer = 0 To 4
                VariableNumber = StartVar + x
                McrVal = MacroRange.data(x).mcr_val
                DecVal = MacroRange.data(x).dec_val
                If McrVal = 0 And DecVal = -1 Then
                    Result = "Null"
                Else
                    Result = McrVal * 10 ^ -(DecVal)
                End If

                Select Case x
                    Case 0
                        Me.LblReadMacroRangeResult1.Text = VariableNumber
                        Me.TxtReadMacroRangeResult1.Text = Result
                    Case 1
                        Me.LblReadMacroRangeResult2.Text = VariableNumber
                        Me.TxtReadMacroRangeResult2.Text = Result
                    Case 2
                        Me.LblReadMacroRangeResult3.Text = VariableNumber
                        Me.TxtReadMacroRangeResult3.Text = Result
                    Case 3
                        Me.LblReadMacroRangeResult4.Text = VariableNumber
                        Me.TxtReadMacroRangeResult4.Text = Result
                    Case 4
                        Me.LblReadMacroRangeResult5.Text = VariableNumber
                        Me.TxtReadMacroRangeResult5.Text = Result
                End Select
            Next
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub

Когда я пытаюсь запустить этот код, все приложение выходит из строя и выдает мне страшное "извините за ошибку inconvience", несмотря на то, что код завернут в try/catch. Я работал с техниками в Fanuc, но у них, похоже, не так много людей, которые много знают о VB.net. Может ли кто-нибудь найти что-нибудь, что я делаю неправильно?

Спасибо,

---