From 16f504a9dca3fe3b70568f67b7d41241ae485288 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 18:49:04 +0200 Subject: Adding upstream version 7.0.6-dfsg. Signed-off-by: Daniel Baumann --- src/VBox/Frontends/VBoxShell/vboxinfo.vb | 60 ++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100644 src/VBox/Frontends/VBoxShell/vboxinfo.vb (limited to 'src/VBox/Frontends/VBoxShell/vboxinfo.vb') diff --git a/src/VBox/Frontends/VBoxShell/vboxinfo.vb b/src/VBox/Frontends/VBoxShell/vboxinfo.vb new file mode 100644 index 00000000..769e3681 --- /dev/null +++ b/src/VBox/Frontends/VBoxShell/vboxinfo.vb @@ -0,0 +1,60 @@ +' $Id: vboxinfo.vb $ +'' @file +' ??? +' + +' +' Copyright (C) 2009-2022 Oracle and/or its affiliates. +' +' This file is part of VirtualBox base platform packages, as +' available from https://www.virtualbox.org. +' +' This program is free software; you can redistribute it and/or +' modify it under the terms of the GNU General Public License +' as published by the Free Software Foundation, in version 3 of the +' License. +' +' This program is distributed in the hope that it will be useful, but +' WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +' General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program; if not, see . +' +' SPDX-License-Identifier: GPL-3.0-only +' + +Imports System +Imports System.Drawing +Imports System.Windows.Forms + +Module Module1 + + Sub Main() + Dim vb As VirtualBox.IVirtualBox + Dim listBox As New ListBox() + Dim form As New Form + + vb = CreateObject("VirtualBox.VirtualBox") + + form.Text = "VirtualBox version " & vb.Version + form.Size = New System.Drawing.Size(400, 320) + form.Location = New System.Drawing.Point(10, 10) + + listBox.Size = New System.Drawing.Size(350, 200) + listBox.Location = New System.Drawing.Point(10, 10) + + For Each m In vb.Machines + listBox.Items.Add(m.Name & " [" & m.Id & "]") + Next + + form.Controls.Add(listBox) + + 'form.ShowDialog() + form.Show() + MsgBox("OK") + End Sub + +End Module + -- cgit v1.2.3