读注册表

Public Shared Function readregedit() As Boolean
        Dim State As RegistryKey
        State = Registry.LocalMachine.OpenSubKey("SOFTWARE\JxcDFT Studio\Register")

        Try
            Dim StateValue As String
            '注意：注册表值取分大小写
            StateValue = State.GetValue("State")
            If StateValue = "Yes" Then

                '  MessageBox.Show(StateValue)

                Return True
                '   Else
                '''''''''wml
                ' Return True

            End If
        Catch
        End Try

    End Function