d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync'
5c65eaa08f2ec993a19c9bef6e5463918e40e0ebvboxsync' Copyright (C) 2009-2010 Oracle Corporation
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync'
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync' This file is part of VirtualBox Open Source Edition (OSE), as
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync' available from http://www.virtualbox.org. This file is free software;
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync' you can redistribute it and/or modify it under the terms of the GNU
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync' General Public License (GPL) as published by the Free Software
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync' Foundation, in version 2 as it comes in the "COPYING" file of the
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync' VirtualBox OSE distribution. VirtualBox OSE is distributed in the
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync' hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync'
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsyncImports System
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsyncImports System.Drawing
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsyncImports System.Windows.Forms
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsyncModule Module1
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync Sub Main()
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync Dim vb As VirtualBox.IVirtualBox
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync Dim listBox As New ListBox()
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync Dim form As New Form
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync vb = CreateObject("VirtualBox.VirtualBox")
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync form.Text = "VirtualBox version " & vb.Version
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync form.Size = New System.Drawing.Size(400, 320)
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync form.Location = New System.Drawing.Point(10, 10)
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync listBox.Size = New System.Drawing.Size(350, 200)
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync listBox.Location = New System.Drawing.Point(10, 10)
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync For Each m In vb.Machines
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync listBox.Items.Add(m.Name & " [" & m.Id & "]")
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync Next
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync form.Controls.Add(listBox)
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync 'form.ShowDialog()
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync form.Show()
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync MsgBox("OK")
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync End Sub
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsync
d8a22c2ad3ccd177ad5cf49d3276cdf3edcb0ec5vboxsyncEnd Module