Visual Basic

Private Structure ComboMultipleData<br />
    Dim FILED_NAME As String<br />
    Dim TABLE_NAME As String<br />
      Public Sub New( ByVal FieldVal As String, ByVal TableVal As String)<br />
     <br />
        FILED_NAME = FieldVal <br />
        TABLE_NAME = TableVal <br />
    End Sub<br />
<br />
    Public Overrides Function ToString() As String<br />
        Return Me.FILED_NAM<br />
    End Function<br />
End Structure

Private Sub frmDemo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
    'for the purposes of this demo I am hard coding the entries<br />
    With REPORT_CHOICE<br />
       .Items.Add(New ComboMultipleData( "FieldVal1", "Table 1"))<br />
       .Items.Add(New ComboMultipleData( "FieldVal2", "Table 2"))<br />
    .Items.Add(New ComboMultipleData( "FieldVal3", "Table 3"))<br />
    End With<br />
  <br />
End Sub<br />
<br />
Private Sub REPORT_CHOICE_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles REPORT_CHOICE.SelectedIndexChanged<br />
    'in this case simply put the data up into the available fields<br />
    Dim acc As ComboMultipleData= CType(cboAccounts.SelectedItem, ComboMultipleData)<br />
    <br />
    txtFieldName.Text = acc.FILED_NAME<br />
    txtTableName.Text = acc.TABLE_NAME<br />
End Sub

If lstnames.SelectedItems.Count > 0 Then
   For Each strSeleted As String In lstnames.SelectedItems 
     'somehow a list item is in fact a string

      Dim strname As String = " " & strSeleted
      Dim lngPos As Long = 1
      Do
          Dim lretval As Long = Shell("net send " & strname & _
     " """ & Mid(strMessage, lngPos, iChunk) & """", vbHide)
          lngPos += iChunk
          'pause to stop out of sequence message chunks

          Sleep(100)
      Loop Until lngPos > Len(strMessage)
      strStatus &= strname.ToString
   Next strSeleted
 End If