Visual Basic

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential, CharSet:=System.Runtime.InteropServices.CharSet.Ansi, Pack:=1)> _
   Public Structure BitRec
       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=20)> Public iBit() As Integer
       Public iState As Integer
       Public iTime As Integer
   End Structure

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential, CharSet:=System.Runtime.InteropServices.CharSet.[Ansi], Pack:=1)> _
    Public Structure MixCalcRec
        Public dLeistung As Double
        Public dTemp1 As Double
        Public dEinlauf As Double
        Public dAuslauf As Double
        Public dStempelWeg As Double
        Public dDrehzahl As Double
    End Structure

<System.Runtime.InteropServices.DllImportAttribute("DPCALC", EntryPoint:="_CalcMixData@28", CallingConvention:=System.Runtime.InteropServices.CallingConvention.StdCall)> _
   Public Shared Function CalcMixDataDLL(ByRef AnalogData As MixCalcRec, ByVal iArraySize As Integer, ByRef BitArray As BitRec, ByVal iBitSize As Integer, ByVal iMode As Integer, ByVal dbDistance As Double) As Integer
   End Function

Public Function CalcMixData(ByRef AnalogData As MixCalcRec, ByVal iArraySize As Integer, ByRef BitArray As BitRec, ByVal iBitSize As Integer, ByVal iMode As Integer, ByVal dbDistance As Double) As Integer
        Dim ireturn As Integer = 0
        Dim iSizeOfOneStruct1 As Integer = Marshal.SizeOf(GetType(MixCalcRec))
        Dim iTotalSize1 As Integer = iSizeOfOneStruct1 * iArraySize
        Dim pUnmanagedAnalogDaten As IntPtr = Marshal.AllocCoTaskMem(iTotalSize1)
        Marshal.StructureToPtr(AnalogData, pUnmanagedAnalogDaten, False)
        Dim iSizeOfOneStruct2 As Integer = Marshal.SizeOf(GetType(BitRec))
        Dim iTotalSize2 As Integer = iSizeOfOneStruct2 * iBitSize
        Dim pUnmanagedBitDaten As IntPtr = Marshal.AllocCoTaskMem(iTotalSize2)
        Marshal.StructureToPtr(BitArray, pUnmanagedBitDaten, False)
        ireturn = CalcMixDataDLL(pUnmanagedAnalogDaten, iArraySize, pUnmanagedBitDaten, iBitSize, iMode, dbDistance)
        Marshal.FreeCoTaskMem(pUnmanagedAnalogDaten)
        Marshal.FreeCoTaskMem(pUnmanagedBitDaten)
        CalcMixData = ireturn
    End Function

Dim objGuid As Guid = (objImage.FrameDimensionsList(0))
Dim objDimension As System.Drawing.Imaging.FrameDimension = New System.Drawing.Imaging.FrameDimension(objGuid)
imgTotalPage = objImage.GetFrameCount(objDimension)
objImage.SelectActiveFrame(objDimension, imgPage)

dataGridView1.DataSource = list

Bindingsource1.Datasource = list

    1
   121
  12321
 1234321
123454321
 1234321
  12321
   121
    1

for (loop the row)
   select case
      case 1
         for
            if
            end if
         next
      case 2
         if
         end if
   end case
next

Private Sub btnView1_Click(sender As System.Object, e As System.EventArgs) Handles btnView1.Click
        Dim input As Integer = Nothing

        Dim spaces As String = Nothing
        Dim numbers As String = Nothing
        '##INPUT
        input = CInt(InputBox("Insert Max Value", "Value"))

        For a As Integer = 1 To (input * 2) - 1
            '##SPACES
            If a <= input Then
                For b As Integer = 1 To (input - a)
                    spaces += " "
                Next
            Else
                For b As Integer = 1 To (a - input)
                    spaces += " "
                Next
            End If
            '##NUMBERS
            If a <= input Then
                For c As Integer = 1 To a
                    numbers += c.ToString()
                Next
            Else
                For c As Integer = 1 To ???
                    numbers += c.ToString()
                Next
            End If
            '##OUTPUT
            ListBox1.Items.Add(spaces + numbers)
            spaces = ""
            numbers = ""
        Next
    End Sub