提示异常：表达式是一个值，因此不能作为赋值目标，请高手帮看一下

提示错误：表达式是一个值，因此不能作为赋值目标，请高手帮看一下。
代码如下：

Public Class Form1

    Structure customobj

        Dim a As String

        Dim b As String

    End Structure

    Dim obj1 As New customobj


    Dim ls1 As New List(Of customobj)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        obj1.a = "a"

        obj1.b = "b"

        ls1.Add(obj1)

        ls1(0).a = "改一个数" ‘在这里提示错误表达式是一个值，因此不能作为赋值目标

    End Sub

End Class

我只想更改ls1第一个元素的a的值而保留b属性值该如何处理。
------解决方案--------------------
   Dim C As customobj
        C.a = "改一个数"
        C.b = "改2个数"
------解决方案--------------------

Public Class Form1


    Class customobj

        Public a As String

        Public b As String

    End Class


    Dim obj1 As New customobj


    Dim ls1 As New List(Of customobj)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        obj1.a = "a"

        obj1.b = "b"

        ls1.Add(obj1)

        ls1(0).a = "改一个数" '在这里提示错误表达式是一个值，因此不能作为赋值目标

    End Sub

End Class