[WinstonChurchill]

İlk önce 3 adet text box 1 adet combo box 1 adet button ve 4 adet Label ekliyoruz.
ve sonra alttaki resimdeki gibi diziyoruz.

Dim a, b, c As Double
        Dim d As String
        a = TextBox1.Text
        b = TextBox2.Text
        d = ComboBox1.Text
        Select d
            Case "Topla"
                c = a + b
            Case "Çıkar"
                c = a - b
            Case "Çarp"
                c = a * b
            Case "Böl"
                c = a / b
    End Sub
    TextBox3.Text = c