Escribir una calculadora de fracciones usando VB

El siguiente código se guarda como un archivo FRM. Puede aproximar fracciones, pero no números negativos. Funciona bien.

==========================

VERSIÓN 5.00

Comenzar VB.Form Form1

VERSIÓN 5.00

VERSIÓN 5.00Form Form1

Caption = "Form1"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3195

ScaleWidth = 4680

StartUposition = 3 'Posición predeterminada de la ventana'

Comenzar VB.NET TextBox Text6 Line1

X1 = 2280

X2 = 3120

Y1 = 840

Y2 = 840

Fin

Inicio VB.Y2 = 840

Fin

Fin

Atributo VB_Name = "Form1"

Atributo VB_GlobalNameSpace = False

Atributo VB_Creatable = False

Atributo VB_PredeclaredId = True

Atributo VB_Exposed = False

Función MaxDeno(ByVal x As Long, ByVal y As Long) As Long

Si x lt; = 0 O y lt; = 0 entonces sale de la función

Cuando x lt; p> x = x - y

De lo contrario

y = y - x

Fin si

Fin

MaxDeno = x

Función final

Subcomando privado1_Click(Índice como entero)

En caso de error, Ir a hErr

Atenuar a como doble , b Como Doble, c Como Doble, d Como Doble, e Como Doble, f Como Doble, m Como Doble

a = Val(Texto1.

b = Val(Texto2. Texto)

c = Val(Texto3.Texto)

d = Val(Texto4.Texto)

c = Val(Texto3.Texto)