BLOQUEAR DIGITAÇÃO NA COMBOBOX

1ª Opção:
Mude a propriedade DropDownStyle do seu ComboBox para DropDownList

2ª Opção:
No evento KeyPress da Combobox coloque o seguinte código:

e.Handled = True
'trava a escrita

CÓDIGO PARA ADICIONAR UM NOVO CAMPO NO DATAGRIDVIEW

Coloque um botão no Form e adicione o seguinte código:

Me.NomedaTabelaBindingSource.AddNew()

CÓDIGO PARA DESABILITAR O TEXTBOX ATRAVES DO BOTAO

Coloque um Botão e um TextBox no Form

Na propriedade Enabled do TextBox coloque False
Clique 2 vezes no Botão Ativar TextBox e coloque o seguinte código:

TextBox1.Enabled = True

RECEBER VALOR DE OUTRO TEXTBOX

Adicione 4 TextBox e um Botão no Form:

TextBox1 - Name: txtNome1
TextBox2 - Name: txtValor1
TextBox3 - Name: txtNome2
TextBox4 - Name: txtValor2
Botão - Text: Adicionar nos TextBox abaixo

Codigo do Botão Adicionar:

txtNome2.Text = txtNome1.Text
txtValor2.Text = txtValor1.Text

CALCULAR TROCO

Adicione 3 TextBox no Form 2 Botões e 3 Labels

TextBox1 - Name: txtValorRecebido
TextBox2 - Name: txtValorProd
TextBox3 - Name: txtTotalTroco
Botão1 - Text: Limpar
Botão2 - Text: =
Label1 - Text: Recebido
Label2 - Text: Total
Label3 - Text: Troco

Clique duas vezes no Form e coloque as variáveis:

Public Class Form1

Dim Troco1 As Decimal

Dim Troco2 As Decimal

Dim TotalTroco As Decimal

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub TrocoMoeda(ByRef txt As TextBox)

        'As variaveis

        Dim TrocoCliente1 As String = String.Empty

        Dim TrocoCliente2 As Double = 0

        Try

            TrocoCliente1 = txt.Text.Replace(",", "").Replace(".", "")

            If TrocoCliente1.Equals("") Then TrocoCliente1 = ""

            TrocoCliente1 = TrocoCliente1.PadLeft(3, "0")

            If TrocoCliente1.Length > 3 And TrocoCliente1.Substring(0, 1) = "0" Then TrocoCliente1 = TrocoCliente1.Substring(1, TrocoCliente1.Length - 1)

            TrocoCliente2 = Convert.ToDouble(TrocoCliente1) / 100

            txt.Text = String.Format("{0:N}", TrocoCliente2)

            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception

        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

 Select Case (txtTotalTroco.TextLength)

            Case 4

                txtTotalTroco.SelectionStart = 5

        End Select

Código do Botão: =

Clique duas vezes no  botão = e coloque o seguinte código:

Troco1 = txtValorRecebido.Text

Troco2 = txtValorProd.Text

TotalTroco = Troco1 - Troco2

txtTotalTroco.Text = TotalTroco

Código do Botão: Limpar

txtValorRecebido.Text = ""

txtValorProd.Text = ""

txtTotalTroco.Text = ""

Código do TextBox: Recebido - Name: txtValorRecebido

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo TrocoMoeda, neste caso é Form1

Form1.TrocoMoeda(txtValorRecebido)

Código do TextBox: Total - Name: txtValorProd

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo TrocoMoeda, neste caso é Form1

Form1.TrocoMoeda(txtValorProd)

Código do TextBox: Troco - Name: txtTotalTroco

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo TrocoMoeda, neste caso é Form1

Form1.TrocoMoeda(txtTotalTroco)

CALCULAR QUANTIDADE

Adicione 3 TextBox nenhuma Forma 2 e 3 botoes Labels

TextBox1 - Nome: txtQuant
TextBox2 - Nome: txtMultValor1
TextBox3 - Nome: txtTotalMult
Label1 - Texto: Quantidade
Label2 - Texto: Preço Unid.
Label3 - Texto: Total
Botão1 - Texto: >>
Botão2 - Texto: Limpar

Clique duas vezes no Form e coloque as variáveis:

Public Class Form1

Dim Mult1 As Decimal
Dim Mult2 As Decimal
Dim MultTotal As Decimal

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub MultMoeda(ByRef txt As TextBox)
        'As variaveis
        Dim MultValor1 As String = String.Empty
        Dim MultValor2 As Double = 0

        Try

            MultValor1 = txt.Text.Replace(",", "").Replace(".", "")
            If MultValor1.Equals("") Then MultValor1 = ""
            MultValor1 = MultValor1.PadLeft(3, "0")
            If MultValor1.Length > 3 And MultValor1.Substring(0, 1) = "0" Then MultValor1 = MultValor1.Substring(1, MultValor1.Length - 1)
            MultValor2 = Convert.ToDouble(MultValor1) / 100
            txt.Text = String.Format("{0:N}", MultValor2)
            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception
        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtTotalMult.TextLength)
            Case 4
                txtTotalMult.SelectionStart = 5
        End Select

Código do Botão:  >>

Clique duas vezes no  botão >> e coloque o seguinte código:

Mult1 = txtQuant.Text
Mult2 = txtMultValor1.Text
MultTotal = Mult1 * Mult2
txtTotalMult.Text = MultTotal

Código do Botão:  Limpar

txtQuant.Text = ""
txtMultValor1.Text = ""
txtTotalMult.Text = ""

Código do TextBox:  Valor Unid. -  Nome:  txtMultValor1

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo MultMoeda, neste caso é Form1

Form1.MultMoeda(txtMultValor1)

Código do TextBox:  Total -  Nome:  txtTotalMult

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo MultMoeda, neste caso é Form1

Form1.MultMoeda(txtTotalMult)

SOMANDO VALORES COM FRAÇÃO

Adicione dois TextBox e dois Botões no Form:

TextBox1 - Name: txtValor01

TextBox2 - Name: txtMonetario

Botão 1 - Text: Calcular

Botão 2 - Text: Limpar

Clique duas vezes no Form e coloque as variáveis:

Public Class Form1

    Dim v1 As Decimal

    Dim total As Decimal

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub FormatoMoeda(ByRef txt As TextBox)

        'As variaveis

        Dim FormatoMoedaValor1 As String = String.Empty

        Dim FormatoMoedaValor2 As Double = 0

        Try

            FormatoMoedaValor1 = txt.Text.Replace(",", "").Replace(".", "")

            If FormatoMoedaValor1.Equals("") Then FormatoMoedaValor1 = ""

            FormatoMoedaValor1 = FormatoMoedaValor1.PadLeft(3, "0")

            If FormatoMoedaValor1.Length > 3 And FormatoMoedaValor1.Substring(0, 1) = "0" Then FormatoMoedaValor1 = FormatoMoedaValor1.Substring(1, FormatoMoedaValor1.Length - 1)

            FormatoMoedaValor2 = Convert.ToDouble(FormatoMoedaValor1) / 100

            txt.Text = String.Format("{0:N}", FormatoMoedaValor2)

            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception

        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtMonetario.TextLength)

Case 4

txtMonetario.SelectionStart = 5

End Select

Código do Botão: Calcular

Clique duas vezes no  botão Calcular e coloque o seguinte código:

v1 = txtValor01.Text

total = v1 + total

txtMonetario.Text = total

Código do Botão: Limpar

 txtValor01.Text = ""

Código do TextBox: Total - Name: txtMonetario

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1

Form1.FormatoMoeda(txtMonetario)

Código do TextBox: Valor - Name: txtValor01

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1

Form1.FormatoMoeda(txtValor01)