o2 = o1

Zitat:

Und wie müsste ich vorgehen, dass sich o2.Feld1 wie eine gewöhnliche Variable verhält und Ihren Wert beibehält.

Structure Struct1
    ...
End Structure

Dim myVar As Struct1

    Class Klasse1
        Public Feld1 As UShort
        Sub New(ByVal f As UShort)
            Me.Feld1 = f
        End Sub
 
        Public Function Clone() As Klasse1
            Return DirectCast(Me.MemberwiseClone(), Klasse1)
        End Function
    End Class

    Private o1 As Klasse1 = New Klasse1(1)
    Private o2 As Klasse1 = Nothing
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        o2 = o1.Clone()
        o1.Feld1 = 9
        MessageBox.Show("" & o2.Feld1)
    End Sub