Visual Basic

Dim c As Collection
       Dim myCollection As New Collection()
       c = TwainHandler.ScanImages("C:\", "jpg")
       Dim l As Integer
       l = 0
       Dim i As Integer
       i = 0
       For Each fn1 In c
           i = i + 1
       Next
       If i Mod 2 <> 0 Then
           TableLayoutPanel1.RowCount = i \ 2 + 1
       Else
           TableLayoutPanel1.RowCount = i \ 2
       End If
       TableLayoutPanel1.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
       TableLayoutPanel1.AutoSize = True
       i = 0
       For Each fn In c
           i = i + 1
           Dim lab As New PictureBox
           lab.BringToFront()
           lab.SizeMode = PictureBoxSizeMode.StretchImage
           lab.Size = New Size(100, 100)
           lab.Image = Image.FromFile(fn)
           TableLayoutPanel1.Controls.Add(lab)
           lab.Name = "lab" & i
       Next
       Dim styles As TableLayoutRowStyleCollection = _
   Me.TableLayoutPanel1.RowStyles
       For Each style As RowStyle In styles
           style.Height = 107
       Next

Private Sub ILIHistogramSheet()
    'xlSheet is declared at class level; ReturnReferenceToNextSheet is a helper function
    'The lines work, delivering the ActiveSheet to xlSheet.
    xlSheet = ReturnReferenceToNextSheet()
    xlSheet.Name = "ILI histograms"

    'Converting the Keys of the first instance to an array of integers
    Dim a() As Integer = mData(0).Trials(0).ILIHistogram.Keys.ToArray
    Dim r As Excel.Range
    Dim rows As Integer = a.GetUpperBound(0) + 1

    'Here, I want to fill the data in the first column, starting at row 7
    r = DirectCast(xlSheet.Cells(6, 1), Excel.Range).Resize(6 + rows, 1)
    r.Value = a
End Sub

'Set range to be one row rather than one column
r = DirectCast(xlSheet.Cells(6, 1), Excel.Range).Resize(1, 6 + rows)

MyBase.Install(stateSaver)

Dim xmlDocument As New System.Xml.XmlDocument
Dim strPath As String = System.IO.Path.Combine(Context.Parameters.Item("TARGETDIR"), "public.config.xml")

If System.IO.File.Exists(strPath) Then
    xmlDocument.Load(strPath)

    xmlDocument.ToString().Replace("$logPath$", Context.Parameters.Item("TARGETDIR"))

    xmlDocument.Save(strPath)
End If

MCICtl.DeviceType = "CDAudio"
MCICtl.Wait = True
MCICtl.filename = DriveLetter
MCICtl.Shareable = True
MCICtl.Enabled = True
MCICtl.Command = "Open"
Dim DevId
DevId = MCICtl.deviceId
TocString = Control.GetMediaToc(DevId)

Function fGetCDroms(ByVal drive As String) As Generic.List(Of Devices)
  Dim WMI, Col, Ob As Object
  Dim s2 As String = ""
  Dim sID As String = ""
  Dim l As New Generic.List(Of Devices)
  Dim Toestel As New Devices
  WMI = GetObject("WinMgmts:")
  Col = WMI.ExecQuery("Select * from Win32_CDROMDrive")
  For Each Ob In Col
    Toestel = New Devices
    With Toestel

      .Availability = Ob.Availability
      .Capabilities = Ob.Capabilities
      .CapabilityDescriptions = Ob.CapabilityDescriptions
      .Caption = Ob.Caption
      .CompressionMethod = Ob.CompressionMethod
      .ConfigManagerErrorCode = Ob.ConfigManagerErrorCode
      .ConfigManagerUserConfig = Ob.ConfigManagerUserConfig
      .CreationClassName = Ob.CreationClassName
      .DefaultBlockSize = Ob.DefaultBlockSize
      .DeviceID = Ob.DeviceID
      .Description = Ob.description
      .Drive = Ob.Drive
      .DriveIntegrity = Ob.DriveIntegrity
      .ErrorCleared = Ob.ErrorCleared
      .ErrorDescription = Ob.ErrorDescription
      .ErrorMethodology = Ob.ErrorMethodology
      .FileSystemFlags = Ob.FileSystemFlags
      .FileSystemFlagsEx = Ob.FileSystemFlagsEx
      .InstallDate = Ob.InstallDate
      .id = Ob.id
      .LastErrorCode = Ob.LastErrorCode
      .manufacturer = Ob.Manufacturer
      .MaxBlockSize = Ob.MaxBlockSize
      .MaximumComponentLength = Ob.MaximumComponentLength
      .MaxMediaSize = Ob.MaxMediaSize
      .MediaLoaded = Ob.MediaLoaded
      .MediaType = Ob.MediaType
      .MinBlockSize = Ob.MinBlockSize
      .Name = Ob.Name
      .NeedsCleaning = Ob.NeedsCleaning
      .NumberOfMediaSupported = Ob.NumberOfMediaSupported
      .PNPDeviceID = Ob.PNPDeviceID
      .PowerManagementCapabilities = Ob.PowerManagementCapabilities
      .PowerManagementSupported = Ob.PowerManagementSupported
      .RevisionLevel = Ob.RevisionLevel
      .SCSIBus = Ob.SCSIBus
      .SCSILogicalUnit = Ob.SCSILogicalUnit
      .SCSIPort = Ob.SCSIPort
      .SCSITargetId = Ob.SCSITargetId
      .Size = Ob.Size
      .Status = Ob.Status
      .StatusInfo = Ob.StatusInfo
      .SystemCreationClassName = Ob.SystemCreationClassName
      .SystemName = Ob.SystemName
      .TransferRate = Ob.TransferRate
      .VolumeName = Ob.VolumeName
      .VolumeSerialNumber = Ob.VolumeSerialNumber
    End With
    l.Add(Toestel)
  Next

  Col = Nothing
  WMI = Nothing

  Return l
End Function

Sub TheCaller()
   'Assume we have a exampleData = List(Of Integer) with the above 8 elements
   Dim count As Integer = GetFrequencies(exampleData)
End Sub

Function GetFrequencies(data As List(Of Integer)) As Integer
   Return (From i In data Where i>60 And i<=80).Count()
End Function