Shocker.Pro,
я исправил


Private Sub Command1_Click()
Dim lRetVal As Long
Dim hKey As Long
Dim sValue As String

lRetVal = RegOpenKeyEx(hRemoteReg, _
"HARDWARE\DESCRIPTION\System", 0, KEY_QUERY_VALUE, hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot open key"
Else
sValue = String(255, " ")
lRetVal = RegQueryValueExString(hKey, _
"SystemBIOSVersion", 0&, REG_SZ, sValue, 255)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot query value"
Else
MsgBox sValue
End If
lRetVal = RegCloseKey(hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot close key"
End If
End If
End Sub

Private Sub Form_Load()
Dim lRet As Long

'Connect to the remote registry
lRet = RegConnectRegistry("\\RemoteMachineName", _
HKEY_LOCAL_MACHINE, _
hRemoteReg)
If (lRet = ERROR_SUCCESS) Then
MsgBox "Successfully connected to remote registry"
Else
MsgBox "Error:" & Err.LastDllError
Unload Me
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lRet As Long
If hRemoteReg <> 0 Then
lRet = RegCloseKey(hRemoteReg)
End If

End Sub

теперь там ошибка :

Sub или Function не определены

а как это сделоть чтобы вводить через Text1.text

Konst_One,
спасибо постараюсь разобраться

люди у меня тема диплом "Разработка приложения для удаленного управления служебными процессами операционной системы клиентов сети.

вот
может у кого нибудь есть тругие варианты

Игорь Горбонос,
я и хочу менять но это закончить надо

Shocker.Prokingarthyr,

ты за учебу платишь или получаешь стипендию?

плачу