Question: Partial Class Form 1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. Protected Overrides Sub Dispose ( ByVal disposing As Boolean )

Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Private Sub InitializeComponent()
components = New ComponentModel.Container()
Label1= New Label()
ToolTip1= New ToolTip(components)
radRegular = New RadioButton()
radFruit = New RadioButton()
chkMango = New CheckBox()
chkKiwi = New CheckBox()
chkMint = New CheckBox()
chkSweetMelon = New CheckBox()
chkCardamom = New CheckBox()
radNoCoffee = New RadioButton()
radRegCoffee = New RadioButton()
radCappuccino = New RadioButton()
radCafeAuLait = New RadioButton()
btnCalculate = New Button()
btnReset = New Button()
btnExit = New Button()
radStudent = New RadioButton()
radSeniorCitizen = New RadioButton()
GroupBox1= New GroupBox()
GroupBox2= New GroupBox()
GroupBox3= New GroupBox()
GroupBox4= New GroupBox()
lblTotal = New Label()
Label4= New Label()
lblTax = New Label()
Label3= New Label()
lblSubtotal = New Label()
Label2= New Label()
GroupBox5= New GroupBox()
GroupBox1.SuspendLayout()
GroupBox2.SuspendLayout()
GroupBox3.SuspendLayout()
GroupBox4.SuspendLayout()
GroupBox5.SuspendLayout()
SuspendLayout()
'
' Label1
'
Label1.AutoSize = True
Label1.Font = New Font("Times New Roman", 18F, FontStyle.Bold Or FontStyle.Italic, GraphicsUnit.Point, CByte(0))
Label1.Location = New Point(198,30)
Label1.Name = "Label1"
Label1.Size = New Size(342,34)
Label1.TabIndex =0
Label1.Text = "Rose Caf Hookah lounge"
Label1.TextAlign = ContentAlignment.MiddleCenter
'
' radRegular
'
radRegular.AutoSize = True
radRegular.Location = New Point(6,26)
radRegular.Name = "radRegular"
radRegular.Size = New Size(159,24)
radRegular.TabIndex =0
radRegular.Text = "Regular Head ($15)"
ToolTip1.SetToolTip(radRegular, "Click here to choose regular head.")
radRegular.UseVisualStyleBackColor = True
'
' radFruit
'
radFruit.AutoSize = True
radFruit.Location = New Point(6,56)
radFruit.Name = "radFruit"
radFruit.Size = New Size(137,24)
radFruit.TabIndex =1
radFruit.Text = "Fruit Head ($20)"
ToolTip1.SetToolTip(radFruit, "Click here to choose fruit head")
radFruit.UseVisualStyleBackColor = True
'
' chkMango
'
chkMango.AutoSize = True
chkMango.Location = New Point(9,26)
chkMango.Name = "chkMango"
chkMango.Size = New Size(78,24)
chkMango.TabIndex =0
chkMango.Text = "Mango"
ToolTip1.SetToolTip(chkMango, "Click here to choose mango.")
chkMango.UseVisualStyleBackColor = True
'
' chkKiwi
'
chkKiwi.AutoSize = True
chkKiwi.Location = New Point(9,56)
chkKiwi.Name = "chkKiwi"
chkKiwi.Size = New Size(59,24)
chkKiwi.TabIndex =1
chkKiwi.Text = "Kiwi"
ToolTip1.SetToolTip(chkKiwi, "Click here to choose kiwi.")
chkKiwi.UseVisualStyleBackColor = True
'
' chkMint
'
chkMint.AutoSize = True
chkMint.Location = New Point(9,86)
chkMint.Name = "chkMint"
chkMint.Size = New Size(61,24)
chkMint.TabIndex =2
chkMint.Text = "Mint"
ToolTip1.SetToolTip(chkMint, "Click here to choose mint")
chkMint.UseVisualStyleBackColor = True
'
' chkSweetMelon
'
chkSweetMelon.AutoSize = True
chkSweetMelon.Location = New Point(9,116)
chkSweetMelon.Name = "chkSweetMelon"
chkSweetMelon.Size = New Size(117,24)
chkSweetMelon.TabIndex =3
chkSweetMelon.Text = "Sweet Melon"
ToolTip1.SetToolTip(chkSweetMelon, "Click here to choos

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!