Public Class Bar
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        End
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Me.Close()
        logged.Show()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim quantidade As String

        quantidade = InputBox("Quantidadesss", "InputBox Test", "Quantidade.")

    'AQUI CARALHO

    Dim Caralho As Integer
    Caralho = quantidade * Val(Label2.Text)

        If quantidade = "" Then
            ' user cancelled the InputBox, so clear the label
            Label1.Text = ""
        Else
            Label1.Text = "Quantidade: " & quantidade
        End If
    End Sub