(vbcode)
Private Sub btnDcName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDcName.Click
'This is for the list of DC channel names.
lstDcName.Items.Clear()
For intchannel = 1 To 256
GetDCData(ThreadId, intchannel, valChannel) 'gets DC data and outputs the value to valChannel
GetDCName(ThreadId, intchannel, dcname, 1) 'gets DC name and outputs it to dcname

'This if loop is to format the list to make it look tidier
If intchannel.ToString.Length = 1 Then
lstDcName.Items.Add(intchannel & " : " & dcname) 'Adds the items into the array.
ElseIf intchannel.ToString.Length = 2 Then
lstDcName.Items.Add(intchannel & " : " & dcname) 'Adds the items into the array.
Else
lstDcName.Items.Add(intchannel & ": " & dcname) 'Adds the items into the array.
End If

'Puts the entire DC channel namelist into an array
DcArray(intchannel) = valChannel
Next
(/vbcode)