diseño de formularios

Diseño:

CÓDIGO:

Public Class frmCalculadora
    Dim num1, num2 As Double

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BtnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click
        num1 = Me.TxtNum1.Text
        num2 = Me.TxtNum2.Text
        If Me.OpcSuma.Checked = True Then
            Me.TxtResp.Text = num1 + num2
        End If
        If Me.OpcResta.Checked = True Then
            Me.TxtResp.Text = num1 - num2
        End If
        If Me.OpcMultiplicacion.Checked = True Then
            Me.TxtResp.Text = num1 * num2
        End If
        If Me.OpcDivision.Checked = True Then
            Me.TxtResp.Text = num1 / num2
        End If
    End Sub

    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        End
    End Sub

    Private Sub frmCalculadora_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class