pastebin - pastes related to vb.net

   Dim teken As String

    Dim puntgezet As Boolean

    Dim isgelijk As Boolean = False

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button13.Click

        If isgelijk = True Then

            Label1.Text = ""

        End If

        Label1.Text = Label1.Text & CType(sender, Button).Text

 

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button13.Click

        If isgelijk = True Then

            Label1.Text = ""

        End If

        Label1.Text = Label1.Text & CType(sender, Button).Text

        isgelijk = False

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click