Calculadora Vb.Net

Public Class Form1
Dim
Dim
Dim
Dim
Dim
Dim
Dim
Dim

N1 As String = 0 'Numero 1
N2 As String = 0 'Numero 2
Signo1 As String
Signo2 As String 'Signo de la operacion
Resultado As String'Resultado de la operacion
Pantalla As String
I As Integer 'Identificador de numero en digicion (N1 or N2)
S As Integer 'Identifica

Private Sub BtnMas_Click(ByVal sender As System.Object, ByVal eAs
System.EventArgs) Handles BtnMas.Click
N1IgualPantalla()
If I = 3 Then
N2 = 0
End If
If N1 0 And N2 0 Then
Operacion()
I=3
N1IgualPantalla()
End If
Signo2 = "+"
If I = 3 Then
S=1End If
End Sub
Private Sub BtnMenos_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnMenos.Click
N1IgualPantalla()
If I = 3 Then
N2 = 0
End If
If N1 0 And N2 0 ThenOperacion()
I=3
N1IgualPantalla()
End If
Signo2 = "-"
If I = 3 Then
S=1
End If
If N1 = 0 And N2 = 0 Then
Signo1 = "-"
Signo2 = ""

End If
End Sub
Private SubBtnMultiplicar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnMultiplicar.Click
N1IgualPantalla()
If I = 3 Then
N2 = 0
End If
If N1 0 And N2 0 Then
Operacion()
I=3
N1IgualPantalla()End If
Signo2 = "*"
If I = 3 Then
S=1
End If
End Sub
Private Sub BtnDividir_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnDividir.Click
N1IgualPantalla()
If I =3 Then
N2 = 0
End If
If N1 0 And N2 0 Then
Operacion()
I=3
N1IgualPantalla()
End If
Signo2 = "/"
If I = 3 Then
S=1
End If
End Sub
Private Sub BtnPunto_Click(ByVal sender AsSystem.Object, ByVal e As
System.EventArgs) Handles BtnPunto.Click
If Signo2 = "" Then
N1 = N1 + ","
I=1
Else
N2 = N2 + ","

I=2
End If
End Sub
Private Sub Btn0_Click(ByVal sender As System.Object,ByVal e As
System.EventArgs) Handles Btn0.Click
AsignarValores(0)
End Sub
Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Btn1.Click
AsignarValores(1)...