I'm almost positive this has been asked before, I can request profiles, thats no problem, but how would you set a label as the keyvalue? Can't figure it out for some reason...I'm just not sure where it sets it as... :-\

Use message 0x27.

[code]
Case &H26
Dim X As Integer
Dim ProfileEnd As String
Dim SplitProfile() As String
Dim splta() As String, splts() As String, spltl() As String, spltd() As String
ProfileEnd = Mid(data, 17, Len(data))
SplitProfile = Split(ProfileEnd, Chr(0))
With Form3
.sex.text = SplitProfile(0)
.age.text = SplitProfile(1)
.location1.text = SplitProfile(2)
rtbAddDescription SplitProfile(3), vbBage
.Show
End With
[/code]
Don't know if this is what you want, but it works.

[quote author=Kp link=board=17;threadid=1013;start=0#msg7588 date=1050094119]
Use message 0x27.
[/quote]
...How would that SET it...

0x26 is the used to request specified profile keys, and 0x27 sets them. Use it like this:

[code]
PacketBuf.InsertDWORD 1
PacketBuf.InsertDWORD 4 'Number of keys you wish to set
PacketBuf.InsertBYTE 0
PacketBuf.InsertNTString "profile\age" ]
PacketBuf.InsertNTString "profile\sex" ]__ Keys your setting
PacketBuf.InsertNTString "profile\location" ]
PacketBuf.InsertNTString "profile\description" ]

PacketBuf.InsertNTString "im 12" }
PacketBuf.InsertNTString "i hate sex" }__Key text values in the same order you are setting them
PacketBuf.InsertNTString "in a land far away" }
PacketBuf.InsertNTString "descriptionblah" }
[/code]

sorry so sloppy, hope you get the idea.