SoloCodigo

Saludos a toda la comunidad, en esta oportunidad quisiera pedir su ayuda o sugerencias, sobre un problema que me aqueja.
Tengo un libreria dll que contiene una funcion llamada  GetSerialNumber, esta funcion deberia retornar una cadena fija.

A continuacion la funcion


Public Function GetSerialNumber(n2 As Integer, n1 As String) As String
Dim r As String
Dim s As String
Dim espacio As Long
r = Space(250)
r = "4MT2EC83"      'esto es lo que deberia retornar
GetSerialNumber = r
End Function


La funcion deberia retornar "4MT2EC83"  , pero solo me devuelve el primer caracter.
De antemano les agradesco su ayuda.
 

Hola  a todos. Aqui les traigo una recopilacion de algunos sistemas desarrollados en visual basic 6.0 con su codigo fuente y base de datos.
Estos pequeños sistemas estan listos para ser destripados por ustedes, usenlos sabiamente,   .
Es solo para uso academico no para uso comercial , ya que la gran mayoria fueron desarrollados por estudiantes que estaban aprendiendo a diseñar y programar sistemas, pero ahun asi se puede aprender algunas cosas sobre el codigo fuente.
Sin mas preambulos aqui estan listos para descargar.


Sistema de Matriculas


freakshare.com/files/hk7vu2se/Matriculas.rar.html


Sistema de Venta de Farmacia



freakshare.com/files/pnjdt5to/SisFarm.rar.html

Sistema de Notas


freakshare.com/files/ior2uv8e/Sisnotas.rar.html

Sistema de Venta de Suministros


freakshare.com/files/q5h5ouje/SisSuministros.rar.html

Sistema de reservacion de vuelos

freakshare.com/files/im54b9r1/SisVuelos.rar.html

Sistema de VideoClub

freakshare.com/files/q5h5ouje/SisSuministros.rar.html

De yapa un proyecto un poco mas completo con diagramas uml.

freakshare.com/files/drvpx8fd/Proyecto-Completo.rar.html

Sistema de Biblioteca

freakshare.com/files/5w9thrmo/Biblio.rar.html



Sistema de Inventario

freakshare.com/files/dlia0izv/Inventario.rar.html

No pongo Imagenes porque no esta habilitada mi cuenta para eso.
 

Espero sus comentarios.