VB.NET With End With Statement

In VB.NET, the With End statement is not the same as a loop structure. It is used to access and execute statements on a specified object without specifying the name of the objects with each statement. Within a With statement block, you can specify a member of an object that begins with a period (.) to define multiple statements.

Syntax:

With objExpression
	[ Statements to be Executed]
End With

objExpression: It defines the data type of objExpression. It may be any class or structure type or basic data type such as Integer. It can be executed once in the With End statement.

Statement: It defines one or more executed statements within the With block. The statement refers to the member of the object that links with objectExpression to execute the With statement block.

End With: It is used to end the With block.

Example: Write a program to understand the uses of With End statement in VB.NET.

Employee.vb

Public Class Employee
    ' definition of global variables
    Public Property name As String
    Public Property age As Integer
    Public Property Occupation As String
    Public Property email As String

    Shared Sub Main()
        ' Create an emp object 
        Dim emp As New Employee
        ' To define the member of an object
        With emp
            .name = " Mr. Stephen"
            .age = 33
            .Occupation = "Data Analyst"
            .email = "xyz@employee.com"
        End With
        With emp
            ' use emp as a reference
            Console.WriteLine(" Name is : {0}", .name)
            Console.WriteLine(" Age is : {0}", .age)
            Console.WriteLine(" Occupation is : {0}", .Occupation)
            Console.WriteLine(" Employee Email is : {0}", .email)
        End With
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Class

Output:

Example: Write a program to display the student details using the With End statement in VB.NET.

With_Statement.vb

Imports System
Module With_statement
    Sub Main()
        ' Create a stud object 
        Dim stud As Student = New Student()

        ' To define the member of an object using With Statement
        With stud
            .stud_name = " Mr. Robert"
            .stud_course = "Computer Science"
            .stud_rollno = "01"
        End With
        
        With stud
            ' use stud as a reference
            Console.WriteLine(" Student Name is : {0}", .stud_name)
            Console.WriteLine(" Student Course Name is : {0}", .stud_course)
            Console.WriteLine(" Student RollNo. is : {0}", .stud_rollno)
        End With
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub

    ' Create a Class Student
    Public Class Student
        Public stud_name As String 'Define the variable of a class
        Public stud_course As String
        Public stud_rollno As Integer
    End Class
End Module

Output: