[VB] Calculadora

[JovenOsiris]

Aqui dejo el code pero no dejando pasar letras 

Public Class Form1
    Private Sub BUTSUM_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles BUTSUM.Click
        TXTR.Text = Val(TXT1.Text) + Val(TXT2.Text)
    End Sub

    Private Sub BUTRES_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles BUTRES.Click
        TXTR.Text = Val(TXT1.Text) - Val(TXT2.Text)
    End Sub

    Private Sub BUTMUL_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles BUTMUL.Click
        TXTR.Text = Val(TXT1.Text) * Val(TXT2.Text)
    End Sub

    Private Sub BUTDIV_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles BUTDIV.Click
        TXTR.Text = Val(TXT1.Text) / Val(TXT2.Text)
    End Sub

    Private Sub BUTLIM_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles BUTLIM.Click
        TXT1.Text = ""
        TXT2.Text = ""
        TXTR.Text = ""
        TXT1.Focus()
    End Sub

    Private Sub BUTCAN_Click(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles BUTCAN.Click
        End
    End Sub

    Private Sub TXT1_TextChang ed(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles TXT1.TextChang ed
        If IsNumeric(TXT1.Text) Then
        Else
            TXT1.Text = ""
            TXT1.Focus()
        End If
    End Sub

    Private Sub TXT2_TextChang ed(ByVal sender As System.Object, ByVal e As System.EventAr gs) Handles TXT2.TextChang ed
        If IsNumeric(TXT2.Text) Then
        Else
            TXT2.Text = ""
            TXT2.Focus()
        End If
    End Sub
End Class

La unica cosita que no me gusta es que el focus o esa cosa que parpadea sale en el txt2  nose como ponerlo en el txt1 

Ahora si pruebalo:
Para ver este enlace Registrate o Inicia Sesion

Descargar

me dices si tiene error