kalk

Dim Zmienna1, Zmienna2 As Double

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Przypisanie wartości text box  to zmiennych
        Zmienna1 = TextBox1.Text
        Zmienna2 = TextBox2.Text

        'Wybieranie opcji i obliczenia
        If RadioButton1.Checked = True Then
            TextBox3.Text = Zmienna1 + Zmienna2
        End If
        If RadioButton2.Checked = True Then
            TextBox3.Text = Zmienna1 - Zmienna2
        End If
        If RadioButton3.Checked = True Then
            TextBox3.Text = Zmienna1 * Zmienna2
        End If
        If RadioButton4.Checked = True Then
            TextBox3.Text = Zmienna1 / Zmienna2
        End If
        If RadioButton5.Checked = True Then
            TextBox3.Text = Zmienna1 ^ Zmienna2
        End If
    End Sub

    
    Private Sub Button2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.DoubleClick

    End Sub
End Class