[VB][Example] With...With End statment

Define a class Student first

Public Class Student
    Public Property Name As String
    Public Property City As String
    Public Property Url As String
End Class

This is the script with out using With... With End statment

Dim student As Student = New Student
student.Name = "cosshk"
student.Url =  "http://cosshk.cc"
student.Name = "Ann"
Console.WriteLine(student.Name)
Console.WriteLine(student.Url)
Console.WriteLine(student.Name)
student.getFullText()

Using with... With End Statment:

Dim student As Student = New Student
With student
  .Name = "cosshk"
  .Url =  "http://cosshk.cc"
  .Name = "Ann"
  Console.WriteLine(student.Name)
  Console.WriteLine(student.Url)
  Console.WriteLine(student.Name)
  .getFullText()
End With

these code create same result  :

Ann
http://cosshk.cc
Ann
Full Text

Reference:

https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/with-end-with-statement