fork download

Imports System
 
Public Class Test
	Public Shared Sub Main()
		Dim tab(0) As Label
		tab(0) = New Label
 
		Console.WriteLine("Avant modification : tab(0).Margin.Left = {0}", tab(0).Margin.Left)
		tab(0).Margin.Left = 42
		Console.WriteLine("Après modification : tab(0).Margin.Left = {0}", tab(0).Margin.Left)
	End Sub
End Class
 
Public Class Label
	Private _margin As Padding
	Public Property Margin As Padding
		Get
			Return _margin
		End Get
		Set (ByVal value As Padding)
			_margin = value
		End Set
	End Property
End Class
 
Public Structure Padding
	Private _left As Integer
	Public Property Left As Integer
		Get
			Return _left
		End Get
		Set (ByVal value As Integer)
			_left = value
		End Set
	End Property
End Structure

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


Assembly 'prog, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null' saved successfully to '/home/IoaW8l/prog.exe'.
Compilation successful
Compilation took 00:00:01.1011970

Avant modification : tab(0).Margin.Left = 0
Après modification : tab(0).Margin.Left = 0