Visual Basic

Public Class frm_CLF_Update

    Private Sub frm_CLF_Update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Visible = False
        Label3.Visible = False
        DateTimePicker1.Value = Now.AddDays(-7)
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 25

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If DateTimePicker2.Value < Now Then
            ProgressBar1.Visible = True
            Label3.Visible = True

            Label3.Text = "Downloading data from the NSE-INDIA server. Please wait for few minutes(Depending upon internet Connection"
            cl.Get_Data(DateTimePicker1.Value, DateTimePicker2.Value, 0)
            ProgressBar1.PerformStep()

            Label3.Text = " Downloading completed... Data cleaning process in progress."
            cl.CleanUp()            ProgressBar1.PerformStep()

            Label3.Text = "Data Cleaned, Database Updated"
        Else
            MsgBox("Date Cannot be greter then todays date ", MsgBoxStyle.Exclamation)
            DateTimePicker2.Value = Now
            DateTimePicker2.Select()
        End If
    End Sub
End Class

cl.Get_Data(DateTimePicker1.Value, DateTimePicker2.Value, 0)

cl.CleanUp()

Private Sub newagent()
        Dim myagentadd As New agentadd()
        myagentadd.agentid = 0

        Dim result As DialogResult
        result = myagentadd.ShowDialog

        If result = Windows.Forms.DialogResult.OK Then
            Dim agent As HVDataSet.AgentRow
            agent = myHVDataSet.Agent.NewAgentRow

            agent.Agent_Address = myagentadd.agentaddress
            agent.Agent_City = myagentadd.agentscity
            agent.Agent_Company = myagentadd.agentcompany
            agent.Agent_Email = myagentadd.agentemail
            agent.Agent_First = myagentadd.agentfirst
            agent.Agent_Last = myagentadd.agentlast
            agent.Agent_Phone = myagentadd.agentphone
            agent.Agent_State = myagentadd.agentstate
            agent.Agent_Web = myagentadd.agentwebsite
            agent.Agent_Zip = myagentadd.agentzip

            myHVDataSet.Agent.AddAgentRow(agent)

            Dim rowsaffected As Integer = 0
            rowsaffected = AgentTableAdapter.Update(agent)



            If rowsaffected > 0 Then
                ToolStripStatusLabel1.Text = "New agent added named : " & myagentadd.agentfirst
            Else
                MessageBox.Show("Please try adding this agent again, my horseshit program has failed you")
            End If

        Else

        End If
        AgentTableAdapter.Update(myHVDataSet)
        myagentadd = Nothing
    End Sub

For Each _TextBox As Object In Me.GroupBox1.Controls
    If TypeOf (_TextBox) Is TextBox Then
        _TextBox.Enabled = False
    End If
Next

For Each _TextBox As TextBox In Me.GroupBox1.Controls 
{"Unable to cast object of type 'System.Windows.Forms.Label' to type 'System.Windows.Forms.TextBox'."}