Private Sub Command1_Click()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS", , 48)
For Each objItem In colItems
   MsgBox "BiosCharacteristics: " & objItem.BiosCharacteristics
   MsgBox "BIOSVersion: " & objItem.BIOSVersion
   MsgBox "BuildNumber: " & objItem.BuildNumber
   MsgBox "Caption: " & objItem.Caption
   MsgBox "CodeSet: " & objItem.CodeSet
   MsgBox "CurrentLanguage: " & objItem.CurrentLanguage
   MsgBox "Description: " & objItem.Description
   MsgBox "IdentificationCode: " & objItem.IdentificationCode
   MsgBox "InstallableLanguages: " & objItem.InstallableLanguages
   MsgBox "InstallDate: " & objItem.InstallDate
   MsgBox "LanguageEdition: " & objItem.LanguageEdition
   MsgBox "ListOfLanguages: " & objItem.ListOfLanguages
   MsgBox "Manufacturer: " & objItem.Manufacturer
   MsgBox "Name: " & objItem.Name
   MsgBox "OtherTargetOS: " & objItem.OtherTargetOS
   MsgBox "PrimaryBIOS: " & objItem.PrimaryBIOS
   MsgBox "ReleaseDate: " & objItem.ReleaseDate
   MsgBox "SerialNumber: " & objItem.SerialNumber
   MsgBox "SMBIOSBIOSVersion: " & objItem.SMBIOSBIOSVersion
   MsgBox "SMBIOSMajorVersion: " & objItem.SMBIOSMajorVersion
   MsgBox "SMBIOSMinorVersion: " & objItem.SMBIOSMinorVersion
   MsgBox "SMBIOSPresent: " & objItem.SMBIOSPresent
   MsgBox "SoftwareElementID: " & objItem.SoftwareElementID
   MsgBox "SoftwareElementState: " & objItem.SoftwareElementState
   MsgBox "Status: " & objItem.Status
   MsgBox "TargetOperatingSystem: " & objItem.TargetOperatingSystem
   MsgBox "Version: " & objItem.Version
Next
End Sub

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long,_
ByVal hwndCallback As Long) As Long


' Las tres líneas anteriores mejor que vayan en un sólo renglón, quitar _


Sub CDControl(action As Boolean)
If action Then
'Abrir CDROM
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
Else
'Cerrar CDROM
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End If
End Sub
Private Sub Command1_Click()
CDControl True
End Sub

Private Sub Command2_Click()
CDControl False
End Sub

Private Sub Command1_Click()
a = App.Path & "\calc.exe" 
m = Shell(a, 1) 
End Sub