With ile Özelliklerin Birleştirilmesi

Private Sub Form_Load() ‘ Form özelliklerinin tek tek
Form1.Height = 3800 ‘ ayarlanması
Form1.Caption = "Normal Uygulama Örneği"
Form1.Width = 5000
End Sub

With ile

Private Sub Form_Load() ‘ Form özelliklerinin birleştirilerek
With Form1 ‘ ayarlanması
.Height = 3800
.Caption = "With Örneği"
.Width = 5000
End With
End Sub

Private Sub Command1_Click()
With Form1 ‘ Form özellikleri with ile birleştiriliyor
.Height = 3000
.Caption = "With Örneği"
.Width = 5000
.BackColor = QBColor(15)
.ForeColor = QBColor(13)
.FontBold = True
.FontItalic = False
.FontSize = 24
End With
Print "Merhaba"
End Sub