0 CODING USE TO PREPARE LIST BOX ,BUTTON,TEXTBOX,LABEL

 CODING USE TO PREPARE LIST BOX ,BUTTON,TEXTBOX,LABEL                                                              CODING

Public Class Form1
    Dim WithEvents button1 As Button
    Dim WithEvents button2 As Button
    Dim WithEvents button3 As Button
    Dim WithEvents button4 As Button
    Dim WithEvents button5 As Button
    Dim WithEvents button6 As Button
    Dim WithEvents button7 As Button
    Dim WithEvents button8 As Button
    Dim WithEvents textbox1 As TextBox
    Dim WithEvents LISTBOX1 As ListBox
    Dim WithEvents LISTBOX2 As ListBox
    Dim WithEvents textbox2 As TextBox
    Dim WithEvents label1 As Label
    Dim WithEvents label2 As Label



    Private Sub Button1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1ToolStripMenuItem.Click
        If (button1 Is Nothing) Then
            button1 = New Button
            button1.Size = New Size(100, 50)
            button1.Location = New Point(100, 200)
            button1.Text = "ADD"
            button1.BackColor = Color.DarkMagenta
            button1.ForeColor = Color.DarkBlue
            Controls.Add(button1)
            AddHandler button1.Click, AddressOf button_click


        End If
    End Sub
    Private Sub button_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LISTBOX1.Items.Add(textbox1.Text)
    End Sub

    Private Sub Textbox1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Textbox1ToolStripMenuItem.Click
        If (textbox1 Is Nothing) Then
            textbox1 = New TextBox
            textbox1.Size = New Size(100, 50)
            textbox1.Location = New Point(100, 260)
            textbox1.Text = ""
            textbox1.Multiline = True
            Controls.Add(textbox1)
        End If
    End Sub

    Private Sub Button2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2ToolStripMenuItem.Click
        If (button2 Is Nothing) Then
            button2 = New Button
            button2.Size = New Size(100, 50)
            button2.Location = New Point(100, 320)
            button2.Text = "REMOVE"
            button2.BackColor = Color.Chocolate
            Controls.Add(button2)

            AddHandler button2.Click, AddressOf but_click

        End If
    End Sub
    Private Sub but_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If LISTBOX1.Items.Count = 0 Then
            MsgBox("nothing to delete", MsgBoxStyle.Information)
        Else


            If LISTBOX1.Items.Count = 1 Then
                LISTBOX1.Items.RemoveAt(0)
            Else

                If LISTBOX1.SelectedItems.Count = 0 Then
                    LISTBOX1.Items.RemoveAt(LISTBOX1.Items.Count - 1)
                Else

                    LISTBOX1.Items.RemoveAt(LISTBOX1.SelectedIndex)
                End If
            End If
        End If
    End Sub

    Private Sub Buton3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buton3ToolStripMenuItem.Click
        If (button3 Is Nothing) Then
            button3 = New Button
            button3.Size = New Size(100, 50)
            button3.Location = New Point(100, 380)
            button3.Text = "CLEAR"
            Controls.Add(button3)

            AddHandler button3.Click, AddressOf butto_click


        End If
    End Sub
    Private Sub butto_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LISTBOX1.Items.Clear()
    End Sub

    Private Sub Listbox1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listbox1ToolStripMenuItem.Click
        If (LISTBOX1 Is Nothing) Then
            LISTBOX1 = New ListBox
            LISTBOX1.Size = New Size(100, 250)
            LISTBOX1.Location = New Point(250, 200)
            LISTBOX1.Text = ""
            LISTBOX1.MultiColumn = True
            LISTBOX1.Sorted = True
            LISTBOX1.ForeColor = Color.DarkGoldenrod
            Controls.Add(LISTBOX1)



        End If
    End Sub

    Private Sub Button4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4ToolStripMenuItem.Click
        If (button4 Is Nothing) Then
            button4 = New Button
            button4.Size = New Size(100, 50)
            button4.Location = New Point(250, 460)
            button4.Text = ">>"
            Controls.Add(button4)
            AddHandler button4.Click, AddressOf p_click
        End If
    End Sub
    Private Sub p_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If LISTBOX1.SelectedItems.Count = 0 Then
            MsgBox("please select the items", MsgBoxStyle.Exclamation)
        Else

            LISTBOX2.Items.Add(LISTBOX1.SelectedItem)
        End If
    End Sub
    Private Sub Listbox2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listbox2ToolStripMenuItem.Click
        If (LISTBOX2 Is Nothing) Then
            LISTBOX2 = New ListBox
            LISTBOX2.Size = New Size(100, 250)
            LISTBOX2.Location = New Point(450, 200)
            LISTBOX2.Text = ""
            LISTBOX2.MultiColumn = True
            LISTBOX2.ForeColor = Color.Blue
            Controls.Add(LISTBOX2)



        End If
    End Sub

    Private Sub Buton5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buton5ToolStripMenuItem.Click
        If (button5 Is Nothing) Then
            button5 = New Button
            button5.Size = New Size(100, 50)
            button5.Location = New Point(450, 460)
            button5.Text = "<<"
            Controls.Add(button5)
            AddHandler button5.Click, AddressOf op_click
        End If
    End Sub
    Private Sub op_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If LISTBOX2.SelectedItems.Count = 0 Then
            MsgBox("please select the items", MsgBoxStyle.Exclamation)
        Else

            LISTBOX1.Items.Add(LISTBOX2.SelectedItem)
        End If
    End Sub

    Private Sub Button6ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6ToolStripMenuItem.Click
        If (button6 Is Nothing) Then
            button6 = New Button
            button6.Size = New Size(100, 50)
            button6.Location = New Point(600, 200)
            button6.Text = "add"
            Controls.Add(button6)
            AddHandler button6.Click, AddressOf bu_click
        End If
    End Sub
    Private Sub bu_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LISTBOX2.Items.Add(textbox2.Text)
    End Sub

    Private Sub Textbox2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Textbox2ToolStripMenuItem.Click
        If (textbox2 Is Nothing) Then
            textbox2 = New TextBox
            textbox2.Size = New Size(100, 50)
            textbox2.Location = New Point(600, 260)
            textbox2.Text = ""
            textbox2.Multiline = True
            Controls.Add(textbox2)
        End If
    End Sub

    Private Sub Button7ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7ToolStripMenuItem.Click
        If (button7 Is Nothing) Then
            button7 = New Button
            button7.Size = New Size(100, 50)
            button7.Location = New Point(600, 320)
            button7.Text = "remove"
            Controls.Add(button7)
            AddHandler button7.Click, AddressOf parveen_click
        End If
    End Sub
    Private Sub parveen_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If LISTBOX2.Items.Count = 0 Then
            MsgBox("nothing to delete", MsgBoxStyle.Exclamation)
        Else


            If LISTBOX2.Items.Count = 1 Then
                LISTBOX2.Items.RemoveAt(0)
            Else

                If LISTBOX2.SelectedItems.Count = 0 Then
                    LISTBOX2.Items.RemoveAt(LISTBOX2.Items.Count - 1)
                Else

                    LISTBOX2.Items.RemoveAt(LISTBOX2.SelectedIndex)
                End If
            End If
        End If
    End Sub

    Private Sub Button8ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8ToolStripMenuItem.Click
        If (button8 Is Nothing) Then
            button8 = New Button
            button8.Size = New Size(100, 50)
            button8.Location = New Point(600, 380)
            button8.Text = "CLEAR"
            Controls.Add(button8)
            AddHandler button8.Click, AddressOf pankaj_click
        End If
    End Sub
    Private Sub pankaj_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LISTBOX2.Items.Clear()
    End Sub

    Private Sub Label1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1ToolStripMenuItem.Click
        If (label1 Is Nothing) Then
            label1 = New Label
            label1.Size = New Size(100, 70)
            label1.Location = New Point(250, 150)
            label1.Text = "sorted"
            label1.Font = New Font("times new forms", 21, FontStyle.Bold)
            label1.ForeColor = Color.PaleGreen
            Controls.Add(label1)
        End If
    End Sub

    Private Sub Label2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2ToolStripMenuItem.Click
        If (label2 Is Nothing) Then
            label2 = New Label
            label2.Size = New Size(100, 70)
            label2.Location = New Point(450, 120)
            label2.Text = "unsorted"
            label2.Font = New Font("times new forms", 18, FontStyle.Bold)
            label2.ForeColor = Color.PaleGreen
            Controls.Add(label2)
        End If
    End Sub
End Class