E ai Sleep blz
Cara basta voce criar um projeto no vb ActiveX DLL
e criar as propriedades e os metodos
e depois compilar
Option Explicit
'Atributos******************************************************************
Private mCodigo As Integer
Private mNome As String
Private mDataNascimento As String
Private mIdade As Integer
'Propriedades***************************************************************
'Propriedade Codigo
Public Property Get Codigo() As Integer
Codigo = mCodigo
End Property
Public Property Let Codigo(ByVal intValue As Integer)
mCodigo = intValue
End Property
'Propriedade Nome
Public Property Get Nome() As String
Nome = mNome
End Property
Public Property Let Nome(ByVal strValue As String)
mNome = strValue
End Property
'Propriedade Data Nascimento
Public Property Get DataNascimento() As String
DataNascimento = mDataNascimento
End Property
Public Property Let DataNascimento(ByVal strValue As String)
mDataNascimento = strValue
End Property
'Propriedade Idade
Public Property Get Idade() As Integer
Idade = DateDiff("yyyy", CDate(DataNascimento), CDate(Format(Now, "dd/mm/yyyy")))
End Property
'Não é necessário a propriedade de escrita Let para idade sendo que a idade pode ser calculada
'Através da data de nascimento
'Public Property Let Idade(ByVal intValue As Integer)
' mIdade = intValue
'End Property
'Metodos*******************************************************************
Public Sub Incluir()
'Coloque aqui o codigo para incluir o aluno
End Sub
Public Sub Obter()
'Coloque aqui o codigo para obter os valores incluidos
End Sub
Public Sub ImportarXML()
'Coloque aqui o codigo para a importação dos dados no
'formato XML
End Sub
'Coloque o nome da classe Aluno
'e compile isso será uma DLL
abraços
