 = False
            txtName.Locked = True
        End If
        optValueType(m_iValueType).Value = True
        fraNew.Caption = "Modify"
        Me.Caption = "Modify Registry Item"
    End If
    optType_Click 1
End Sub

Private Sub optType_Click(Index As Integer)
Dim i As Long
    If (optType(1).Value) Then
        txtValue.Locked = False
        txtValue.BackColor = vbWindowBackground
    Else
        txtValue.Text = ""
        txtValue.Locked = True
        txtValue.BackColor = vbButtonFace
    End If