
19/10/2006, 12:22
|
| | Fecha de Ingreso: mayo-2004 Ubicación: Guadalajara, Jalisco, México
Mensajes: 724
Antigüedad: 20 años, 9 meses Puntos: 6 | |
Código:
Public Class Clsprueba
Public Function sumar(ByVal x As Integer, ByVal y As Integer) As Integer
Dim objMsgbox As New ClsMsgBox
Dim suma As Integer = x + y
If (suma > 10) Then
objMsgbox.ShowMessage("La suma es: " & suma)
sumar = suma
Else
objMsgbox.ShowMessage("Sobrepaso el limite")
End If
Return suma End Function
End Class
|