Recién hoy estoy empezando con .NET en el colegio, y la profesora nos pidió de hacer una calculadora, aca les dejo la que hice yo, les pido POR FAVOR que la critiquen 

(Con criticar me refiero solo a criticas constructivas, y hagan el favor de argumentar  )

Code:

Public Class Form1
    Dim Num1, Num2 As Integer
    Dim Resultado As Single
    Dim numeros(9) As Short
 
    Private Sub btnmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmas.Click
        Dim comp1 As String = txtnum1.Text
        Dim comp2 As String = txtnum2.Text
        If comp1 = "" Or comp2 = "" Then
            MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
        Else
            Num1 = Convert.ToInt32(txtnum1.Text)
            Num2 = Convert.ToInt32(txtnum2.Text)
            Resultado = Num1 + Num2
            txtresultado.Text = Convert.ToSingle(Resultado)
        End If
    End Sub
 
    Private Sub btnmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmenos.Click
        Dim comp1 As String = txtnum1.Text
        Dim comp2 As String = txtnum2.Text
        If comp1 = "" Or comp2 = "" Then
            MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
        Else
            Num1 = Convert.ToInt32(txtnum1.Text)
            Num2 = Convert.ToInt32(txtnum2.Text)
            Resultado = Num1 - Num2
            txtresultado.Text = Convert.ToSingle(Resultado)
        End If
    End Sub
 
    Private Sub btnpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpor.Click
        Dim comp1 As String = txtnum1.Text
        Dim comp2 As String = txtnum2.Text
        If comp1 = "" Or comp2 = "" Then
            MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
        Else
            Num1 = Convert.ToInt32(txtnum1.Text)
            Num2 = Convert.ToInt32(txtnum2.Text)
            Resultado = Num1 * Num2
            txtresultado.Text = Convert.ToSingle(Resultado)
        End If
    End Sub
 
    Private Sub btndiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndiv.Click
        Dim comp1 As String = txtnum1.Text
        Dim comp2 As String = txtnum2.Text
        If comp1 = "" Or comp2 = "" Then
            MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
        Else
            Num1 = Convert.ToInt32(txtnum1.Text)
            Num2 = Convert.ToInt32(txtnum2.Text)
            Resultado = Num1 / Num2
            txtresultado.Text = Convert.ToSingle(Resultado)
        End If
    End Sub
 
    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        txtnum1.Clear()
        txtnum2.Clear()
        txtresultado.Clear()
    End Sub
 
    Private Sub txtnum1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum1.KeyPress
        If e.KeyChar.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf e.KeyChar.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
            MessageBox.Show("Solo dígitos del 0 al 9 =P", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
 
    Private Sub txtnum2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum2.KeyPress
        If e.KeyChar.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf e.KeyChar.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
            MessageBox.Show("Solo dígitos del 0 al 9 =P", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
End Class
 

Imagen:



Ah, una cosa más, la profesora nos dijo que iba a intentar "romperla", hay otra medida de seguridad aparte de validar los textboxs que se pueda implementar?

Saludos!

En paint 

Para, vos te referis al del Form o al de la imagen?

Si es del Form, es que tengo ese style del xp, por lo que los programas se ven así en mi PC 

Podrías darme un ejemplo de como se puede "romper" ?

Thx ^^

PD: Argumenten por favor 

Hola:

Se refiere a esto:
http://msdn.microsoft.com/es-es/library/0yd65esw.aspx

Saludo.

Usa try en las conversiones, nunca esperes que el usuario ingrese lo que tiene
que ingresar.


Aunque ya cubres ese error en KeyPress es mejor prevenir.