VirtualBox

source: vbox/trunk/src/VBox/Frontends/VBoxShell/vboxinfo.vb@ 67816

Last change on this file since 67816 was 32394, checked in by vboxsync, 14 years ago

more branding and header fixes

  • Property svn:eol-style set to CRLF
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
Line 
1'
2' Copyright (C) 2009-2010 Oracle Corporation
3'
4' This file is part of VirtualBox Open Source Edition (OSE), as
5' available from http://www.virtualbox.org. This file is free software;
6' you can redistribute it and/or modify it under the terms of the GNU
7' General Public License (GPL) as published by the Free Software
8' Foundation, in version 2 as it comes in the "COPYING" file of the
9' VirtualBox OSE distribution. VirtualBox OSE is distributed in the
10' hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
11'
12Imports System
13Imports System.Drawing
14Imports System.Windows.Forms
15
16Module Module1
17
18 Sub Main()
19 Dim vb As VirtualBox.IVirtualBox
20 Dim listBox As New ListBox()
21 Dim form As New Form
22
23 vb = CreateObject("VirtualBox.VirtualBox")
24
25 form.Text = "VirtualBox version " & vb.Version
26 form.Size = New System.Drawing.Size(400, 320)
27 form.Location = New System.Drawing.Point(10, 10)
28
29 listBox.Size = New System.Drawing.Size(350, 200)
30 listBox.Location = New System.Drawing.Point(10, 10)
31
32 For Each m In vb.Machines
33 listBox.Items.Add(m.Name & " [" & m.Id & "]")
34 Next
35
36 form.Controls.Add(listBox)
37
38 'form.ShowDialog()
39 form.Show()
40 MsgBox("OK")
41 End Sub
42
43End Module
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette