Public Class WithForm : Inherits Form Public Shared Sub Main() Dim frm as New Form
With frm
.BackColor = Color.Gray
.ForeColor = Color.Red
.Text = "The With Statement"
.Enabled = True
.Topmost = True
.MinimizeBox = False
.ShowDialog() End With End Sub End Class