am using 4 textboxes and 1 checkbox..........heres the function....

i tried by replacing REG_SZ by REG_DWORD and REG_BINARY but it went as zero length............moreover the user can input any value in the textboxes ie a str or dword or bin.........

pls provide somore help........

thnx........

Public Function writereg(ByVal phkres, ByVal subkey, ByVal keyname)
Dim udntres As Long, datatype As Long, valuedata As String, valuedatasize As Long
Dim cnt As Integer, samdes As Long, udntval As Boolean, flag As Boolean

valuedata = Space(255)
subkey = subkey & "\" & keyname & "\Parameters\Tcpip"

udntres = RegOpenKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, samdes, phkres)

udntres = RegDeleteValue(phkres, Form1.Label2.Caption)
udntres = RegDeleteValue(phkres, Form1.Label3.Caption)
udntres = RegDeleteValue(phkres, Form1.Label4.Caption)
udntres = RegDeleteValue(phkres, Form1.Label5.Caption)
udntres = RegDeleteValue(phkres, Form1.Label6.Caption)

udntres = RegOpenKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, samdes, phkres)

If Form1.Check1.Value = 1 Then
valuedata = "On"
flag = True
Else
valuedata = "Off"
flag = False
End If


udntres = RegSetValueEx(phkres, Form1.Label2.Caption, 0, REG_SZ, ByVal valuedata, valuedatasize)
chkudntres udntres

udntres = RegSetValueEx(phkres, Form1.Label3.Caption, 0, REG_SZ, ByVal Form1.Text1.Text, valuedatasize)
chkudntres udntres

If flag = False Then
udntres = RegSetValueEx(phkres, Form1.Label4.Caption, 0, REG_SZ, ByVal Form1.Text2.Text, valuedatasize)
chkudntres udntres

udntres = RegSetValueEx(phkres, Form1.Label5.Caption, 0, REG_SZ, ByVal Form1.Text3.Text, valuedatasize)
chkudntres udntres

udntres = RegSetValueEx(phkres, Form1.Label6.Caption, 0, REG_SZ, ByVal Form1.Text4.Text, valuedatasize)
chkudntres udntres
End If
End Function