need favor: VB6.0 com component

[blueindian]

Hey does anyone have VB 6.0?

Would you mind creating a COM DLLfor me? I just need it to test something. Here's the code:

[ActiveX DLL Project named MyCustomer]
[ClassName = Balances]

Option Explicit

Private mintCustomerCount as Integer
Private macurBalances(1 to 10) as Currency

'Create a read-only CustomerCount Property
Public Property Get CustomerCount() as Integer
CustomerCount = mintCustomerCount
End Property

'Create a GetBalance Method
Public Function GetBalance(CustomerNumber as Integer) as Currency
GetBalance = macurBalances(CustomerNumber)
End Function

'Initialize the data
Private Sub Class_Initialize()

Dim intI as Integer


minCustomerCount = 10

For intI = 1 to 10

macurBalances(intI) = Int(Rnd(1) * 100000) / 100

Next intI
End Sub

[compile MyCustomer.dll]




I would greatly appreacite if someone could complie this and email the dll to me. you can get my email addy from my profile.

Hopefully i don't have any typos above, since I don't have vb6.0 i (obvioulsly) can't check it too well.

thanks!