以 with 修改 Form Object 上既 Property

 
以 with 修改 Form Object 上既 Property
 

   Form1.vb 部分
 
   Private Sub ObjInit()
 
      Dim NewObj As New BBB
 
      Dim B As New Label With { _
         .Name = "LabelB", _
         .Text = NewObj.B, _
         .Location = New Point(100, 100) _
      }
      Me.Controls.Add(B)
 
      Dim D As New Label With { _
         .Name = "LabelD", _
         .Text = NewObj.D, _
         .Location = New Point(100, 200) _
      }
      Me.Controls.Add(D)
 
   End Sub