Esto en una librería ClassLibrary1:
NameSpace Cuentas
Public Class Calcular
Public Function Sumar(ByVal num1 as Integer, ByVal num2 as Integer) As Integer
Dim result As Integer
result = num1 + num2
return result
End Function
Public Function Restar(ByVal num1 as Integer, ByVal num2 as Integer) As Integer
Dim result As Integer
result = num1 + num2
return result
End Function
End Class
End NameSpace
En el formulario :
Imports ClassLibrary1.Cuentas
En el evento o procedimiento que utilice la clase:
Dim miClase as New Calcular
Dim n1, n2, r1, r2 as Integer
Dim mensaje as String
n1= CType((me.textBox1.Text), Integer)
n2= CType((me.textBox2.Text), Integer)
r1= miClase.Sumar(n1,n2)
r2= miClase.Restar(n1,n2)
Mensage= \"El resultado de la suma de \" & n1 & \" y \" & n2 & \" es: \" & r1
MsgBox(mensaje)
Mensage= \"El resultado de la resta de \" & n1 & \" y \" & n2 & \" es: \" & r1
MsgBox(mensaje)
Este es un ejemplo, si querés pasame tu dirección de mail y te mando algo más sofisticado y el material de dce sobre clases.
Saludos
