Code: Select all
Dim PiD As StringBuilder = New StringBuilder
Dim len As UInt32 = CType(PiD.Capacity, UInt32)
'CompID @ request code
If GetPropertyValue("CompID", PiD, len) = 234 Then
PiD = New StringBuilder(CType(len, Int32))
GetPropertyValue("CompID", PiD, len)
End If
'display request code in this text box
Me.PRequest.Text = PiD.ToString