Public Structure CBData
        Public Property CB As CheckBox
        Public Property IP As String
        Public Property Text As String
        Public Property Tag As String
 
        Public Sub New(ByVal CB As CheckBox, ByVal IP As String, ByVal Text As _
          String, ByVal Tag As String)
            Me.CB = CB
            Me.IP = IP
            Me.Text = Text
            Me.Tag = Tag
        End Sub
    End Structure

    Public CBS As New List(Of CBData)

        CBS.Add(New CBData(CheckBox5, "192.168.1.97", "xxx (xx)", ""))
        CBS.Add(New CBData(CheckBox6, "192.168.1.98", "yyy (xx)", ""))
        CBS.Add(New CBData(CheckBox7, "192.168.1.99", "zzz (xx)", ""))

        CBS(1).IP = "test"
           'oder
        CBS(1).IP.ToString = "test"