with 陳述式

With 區塊可在單一物件上執行一系列的陳述式，如下碼：

With testObject
    .Height = 100
    .Text = "Hello, World"
    .ForeColor = System.Drawing.Color.Green
    .Font = New System.Drawing.Font(.Font, _
        System.Drawing.FontStyle.Bold)
End With

With 指定物件 testObject 執行一系列的陳述式，變更 testObject 的數個不同屬性，請將屬性指派陳述式 (Assignment Statement) 置入 With 區塊中，只需參考該物件名稱一次，而不必在每次指派屬性時都要加以參考。