Ver Mensaje Individual
  #8 (permalink)  
Antiguo 19/10/2006, 12:22
Stream
 
Fecha de Ingreso: mayo-2004
Ubicación: Guadalajara, Jalisco, México
Mensajes: 724
Antigüedad: 20 años
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