VirtualBox

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

Last change on this file was 98103, checked in by vboxsync, 18 months ago

Copyright year updates by scm.

  • Property svn:eol-style set to CRLF
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 KB
Line 
1' $Id: vboxinfo.vb 98103 2023-01-17 14:15:46Z vboxsync $
2'' @file
3' ???
4'
5
6'
7' Copyright (C) 2009-2023 Oracle and/or its affiliates.
8'
9' This file is part of VirtualBox base platform packages, as
10' available from https://www.virtualbox.org.
11'
12' This program is free software; you can redistribute it and/or
13' modify it under the terms of the GNU General Public License
14' as published by the Free Software Foundation, in version 3 of the
15' License.
16'
17' This program is distributed in the hope that it will be useful, but
18' WITHOUT ANY WARRANTY; without even the implied warranty of
19' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20' General Public License for more details.
21'
22' You should have received a copy of the GNU General Public License
23' along with this program; if not, see <https://www.gnu.org/licenses>.
24'
25' SPDX-License-Identifier: GPL-3.0-only
26'
27
28Imports System
29Imports System.Drawing
30Imports System.Windows.Forms
31
32Module Module1
33
34 Sub Main()
35 Dim vb As VirtualBox.IVirtualBox
36 Dim listBox As New ListBox()
37 Dim form As New Form
38
39 vb = CreateObject("VirtualBox.VirtualBox")
40
41 form.Text = "VirtualBox version " & vb.Version
42 form.Size = New System.Drawing.Size(400, 320)
43 form.Location = New System.Drawing.Point(10, 10)
44
45 listBox.Size = New System.Drawing.Size(350, 200)
46 listBox.Location = New System.Drawing.Point(10, 10)
47
48 For Each m In vb.Machines
49 listBox.Items.Add(m.Name & " [" & m.Id & "]")
50 Next
51
52 form.Controls.Add(listBox)
53
54 'form.ShowDialog()
55 form.Show()
56 MsgBox("OK")
57 End Sub
58
59End Module
60
Note: See TracBrowser for help on using the repository browser.

© 2023 Oracle
ContactPrivacy policyTerms of Use