Visual Basic - clases en vb 6.0

Hola a todos.

Soy programador Visual FoxPro. He encontrado esta línea que me sirve para DESACTIVAR PUERTOS USB.

Dim reg As New RegistryClass
With reg
.SetKeyValue .HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\USBSTOR", .RegDWORD, "Start", 4
End With

Mi problema es que no comprendo como hacer la clase para luego ejecutarlo. Como lo indica en VB 6.0

Alguien podría decirme, por favor... como hago para escribirlo en un command1 de mi Fomr en VB y evitar hacer la clase.

Muchas Gracias, al menos por leerme.

Hola recién me topo con tu pregunta, espero ya lo hallas solucionado, pero lo que puedo ver es que el tipo RegistryClass es un tipo de dato definido por el usuario, así que primero tendrías que crear el tipo de datos y luego poner simplemente.

Dim reg As New RegistryClass

Private Sub Command1_Click()
With reg
.SetKeyValue .HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\USBSTOR", .RegDWORD, "Start", 4
End With
End Sub

espero te sirva, al menos eso es lo que pude entender en tu pregunta, chaup y suerte.