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)