Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms


    Public Class Gardenmaker
        Inherits System.Windows.Forms.Form

        'Required by the Win Forms Designer   
        Private components As System.ComponentModel.Container
        Private opPerennial As System.Windows.Forms.RadioButton
        Private opAnnual As System.Windows.Forms.RadioButton
        
        
        Private opVegetable As System.Windows.Forms.RadioButton
        Private GroupBox1 As System.Windows.Forms.GroupBox
        Private btShade As System.Windows.Forms.Button
        Private btBorder As System.Windows.Forms.Button
        Private btCenter As System.Windows.Forms.Button
    Private pbox As PictureBox
                Private gden as Garden
    
        Public Sub New()
           MyBase.New
    
           'This call is required by the Win Forms Designer.
           InitializeComponent
    
           ' TODO: Add any constructor code after InitializeComponent call

        End Sub


        'The main entry point for the application
        Shared Sub Main()
            System.Windows.Forms.Application.Run(New GardenMaker())
        End Sub

        'NOTE: The following procedure is required by the Win Forms Designer
        'Do not modify it.
        Private Sub InitializeComponent() 
        Me.opAnnual = New System.Windows.Forms.RadioButton()
        Me.opPerennial = New System.Windows.Forms.RadioButton()
        Me.btShade = New System.Windows.Forms.Button()
        Me.btCenter = New System.Windows.Forms.Button()
        Me.btBorder = New System.Windows.Forms.Button()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.opVegetable = New System.Windows.Forms.RadioButton()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'opAnnual
        '
        Me.opAnnual.Location = New System.Drawing.Point(16, 64)
        Me.opAnnual.Name = "opAnnual"
        Me.opAnnual.Size = New System.Drawing.Size(120, 16)
        Me.opAnnual.TabIndex = 1
        Me.opAnnual.Text = "Annual"
        '
        'opPerennial
        '
        Me.opPerennial.Location = New System.Drawing.Point(16, 96)
        Me.opPerennial.Name = "opPerennial"
        Me.opPerennial.Size = New System.Drawing.Size(104, 16)
        Me.opPerennial.TabIndex = 2
        Me.opPerennial.Text = "Perennial"
        '
        'btShade
        '
        Me.btShade.Location = New System.Drawing.Point(336, 248)
        Me.btShade.Name = "btShade"
        Me.btShade.Size = New System.Drawing.Size(56, 24)
        Me.btShade.TabIndex = 3
        Me.btShade.Text = "Shade"
        '
        'btCenter
        '
        Me.btCenter.Location = New System.Drawing.Point(200, 248)
        Me.btCenter.Name = "btCenter"
        Me.btCenter.Size = New System.Drawing.Size(56, 24)
        Me.btCenter.TabIndex = 1
        Me.btCenter.Text = "Center"
        '
        'btBorder
        '
        Me.btBorder.Location = New System.Drawing.Point(264, 248)
        Me.btBorder.Name = "btBorder"
        Me.btBorder.Size = New System.Drawing.Size(56, 24)
        Me.btBorder.TabIndex = 2
        Me.btBorder.Text = "Border"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.opPerennial, Me.opAnnual, Me.opVegetable})
        Me.GroupBox1.Location = New System.Drawing.Point(24, 64)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(160, 152)
        Me.GroupBox1.TabIndex = 4
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Garden type"
        '
        'opVegetable
        '
        Me.opVegetable.Location = New System.Drawing.Point(16, 32)
        Me.opVegetable.Name = "opVegetable"
        Me.opVegetable.Size = New System.Drawing.Size(128, 16)
        Me.opVegetable.TabIndex = 0
        Me.opVegetable.Text = "Vegetable"
        '
        'Gardenmaker
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(416, 309)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.btShade, Me.btBorder, Me.btCenter})
        Me.Name = "Gardenmaker"
        Me.Text = "Garden maker"
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
    '-----------
    Protected Sub btShade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        gden.showShade()
        pbox.Refresh()
    End Sub

    Protected Sub btBorder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        gden.showBorder()
        pbox.Refresh()
    End Sub

    Protected Sub btCenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        gden.showCenter()
        pbox.Refresh()
    End Sub

    Protected Sub opPerennial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        gden = New PerennialGarden()
        '     pBox.setGarden(gden)
    End Sub

    Protected Sub opAnnual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        gden = New AnnualGarden()
        '  pBox.setGarden(gden)    
    End Sub

    Protected Sub opVegetable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        gden = New VegetableGarden()
        ' pBox.setGarden(gden)
    End Sub


    Private Sub opVegetable_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opVegetable.CheckedChanged

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
End Class


