簡単な計算のできるプログラムを作りました。
今のプログラムをもっと簡単にしたいです。
いいプログラムあれば教えてください。
環境はVB.NETです。
今回のは趣味で作っています。

Public Class Dentaku

    Private Sub gokei_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gokei_timer.Tick
        'どちらかが空いていた場合
        If su1.Text = "" Or su2.Text = "" Then
            gokei.Text = ""
            KeisanShiki.Text = ""
        End If
        '両方が入力された場合
        If su1.Text <> "" And su2.Text <> "" Then

            If tasu.Checked = True Then
                gokei.Text = Val(su1.Text) + Val(su2.Text)
                KeisanShiki.Text = su1.Text + "＋" + su2.Text
            ElseIf hiku.Checked = True Then
                gokei.Text = Val(su1.Text) - Val(su2.Text)
                KeisanShiki.Text = su1.Text + "−" + su2.Text
            ElseIf kakeru.Checked = True Then
                gokei.Text = Val(su1.Text) * Val(su2.Text)
                KeisanShiki.Text = su1.Text + "×" + su2.Text
            ElseIf waru.Checked = True Then
                gokei.Text = Val(su1.Text) / Val(su2.Text)
                KeisanShiki.Text = su1.Text + "÷" + su2.Text
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Left = (Screen.PrimaryScreen.Bounds.Width - Width) / 2
        Top = (Screen.PrimaryScreen.Bounds.Height - Height) / 2
        '初期設定
        su1.Text = ""
        su2.Text = ""
    End Sub

    Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
        'クリア
        su1.Text = ""
        su2.Text = ""
        gokei.Text = ""

    End Sub

    Private Sub EndButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EndButton.Click
        '終了
        End
    End Sub

> 簡単な計算のできるプログラムを作りました。
> 今のプログラムをもっと簡単にしたいです。
> いいプログラムあれば教えてください。
> 環境はVB.NETです。
> 今回のは趣味で作っています。

もう見ていないかも知れませんが、サンプル投稿用掲示板の方に投稿しておきました。

但し、いいプログラム ではありません。