Public Class RegClass
    Public Function UpRegData(ByVal IP As String) As Integer
        Try
            Dim regVersion As Microsoft.Win32.RegistryKey
            regVersion = _
           Microsoft.Win32.Registry.CurrentUser.OpenSubKey("要读、写的位置", True)
            If regVersion Is Nothing Then
                Return 0     'MessageBox.Show("不存在！")
            Else
                '存在
                regVersion.SetValue("要写的项的名称", "要写的值")
                Return 1  '写入成功
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return -1   '出错
        End Try

    End Function
End Class