form1.vb

Mastering VBNet Include Source Code

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents radioCpp As System.Windows.Forms.RadioButton
    Friend WithEvents radioCsharp As System.Windows.Forms.RadioButton
    Friend WithEvents radioJava As System.Windows.Forms.RadioButton
    Friend WithEvents radioVB As System.Windows.Forms.RadioButton
    Friend WithEvents radioCobol As System.Windows.Forms.RadioButton
    Friend WithEvents radioNone As System.Windows.Forms.RadioButton
    Friend WithEvents Label1 As System.Windows.Forms.Label

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.Container

    '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.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.radioCobol = New System.Windows.Forms.RadioButton()
        Me.radioVB = New System.Windows.Forms.RadioButton()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.radioCpp = New System.Windows.Forms.RadioButton()
        Me.radioJava = New System.Windows.Forms.RadioButton()
        Me.radioCsharp = New System.Windows.Forms.RadioButton()
        Me.radioNone = New System.Windows.Forms.RadioButton()
        Me.SuspendLayout()
        '
        'radioCobol
        '
        Me.radioCobol.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.radioCobol.Location = New System.Drawing.Point(14, 148)
        Me.radioCobol.Name = "radioCobol"
        Me.radioCobol.TabIndex = 4
        Me.radioCobol.Text = "COBOL"
        '
        'radioVB
        '
        Me.radioVB.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.radioVB.Location = New System.Drawing.Point(14, 115)
        Me.radioVB.Name = "radioVB"
        Me.radioVB.TabIndex = 3
        Me.radioVB.Text = "Visual Basic"
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(12, 215)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(226, 45)
        Me.Label1.TabIndex = 6
        '
        'radioCpp
        '
        Me.radioCpp.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.radioCpp.Location = New System.Drawing.Point(14, 16)
        Me.radioCpp.Name = "radioCpp"
        Me.radioCpp.TabIndex = 0
        Me.radioCpp.Text = "C++"
        '
        'radioJava
        '
        Me.radioJava.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.radioJava.Location = New System.Drawing.Point(14, 82)
        Me.radioJava.Name = "radioJava"
        Me.radioJava.TabIndex = 2
        Me.radioJava.Text = "Java"
        '
        'radioCsharp
        '
        Me.radioCsharp.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.radioCsharp.Location = New System.Drawing.Point(14, 49)
        Me.radioCsharp.Name = "radioCsharp"
        Me.radioCsharp.TabIndex = 1
        Me.radioCsharp.Text = "C#"
        '
        'radioNone
        '
        Me.radioNone.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.radioNone.Location = New System.Drawing.Point(14, 181)
        Me.radioNone.Name = "radioNone"
        Me.radioNone.Size = New System.Drawing.Size(148, 24)
        Me.radioNone.TabIndex = 5
        Me.radioNone.Text = "None of the above"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(254, 273)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.radioNone, Me.radioCobol, Me.radioVB, Me.radioJava, Me.radioCsharp, Me.radioCpp})
        Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub radioCpp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioCpp.Click
        Label1.Text = "C++ is too difficult to learn"
    End Sub

    Private Sub radioCsharp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioCsharp.Click
        Label1.Text = "C# is so similar to VB, why bother with it?"
    End Sub

    Private Sub radioJava_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioJava.Click
        Label1.Text = "Java is not a .NET language"
    End Sub

    Private Sub radioVB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioVB.Click
        Label1.Text = "We have a winner"
    End Sub

    Private Sub radioCobol_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioCobol.Click
        Label1.Text = "Do you still remember COBOL?"
    End Sub

    Private Sub radioNone_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioNone.Click
        Label1.Text = "You better make up your mind soon"
    End Sub

End Class