Private Sub cbharga1_CheckedChanged(sender As Object, e As EventArgs) Handles cbharga1.CheckedChanged
        txtharga.Text = cbharga1.Text
    End Sub

	Private Sub cbharga2_CheckedChanged(sender As Object, e As EventArgs) Handles cbharga2.CheckedChanged
        txtharga.Text = cbharga2.Text
    End Sub

    Private Sub cbharga3_CheckedChanged(sender As Object, e As EventArgs) Handles cbharga3.CheckedChanged
        txtharga.Text = cbharga3.Text
    End Sub

    Private Sub cbharga4_CheckedChanged(sender As Object, e As EventArgs) Handles cbharga4.CheckedChanged
        txtharga.Text = cbharga4.Text
    End Sub

    Private Sub cbharga5_CheckedChanged(sender As Object, e As EventArgs) Handles cbharga5.CheckedChanged
        txtharga.Text = cbharga5.Text
    End Sub