ActiveX Control Problem

[Yegg]

For some reason my ActiveX program won't work in other Visual Basic 6 forms. For example, I have:

Code Select Expand

Public Function Username(Info As String)
HashStuff.vUser = Info
End Function

HashStuff is a Module and vUser is in HashStuff (obviously), it is:

Code Select Expand

Public vUser As String

Now, when I make my program into filename.ocx, and I add it to another VB6 form. I try doing,

Code Select Expand

Private Sub Form_Load()
'bConnecter1 is its name
bConnecter1.Username = "Yegg"
End Sub

When I try to run the program, an error comes up saying,

Code Select Expand

Argument not optional

Any reason why this is happening?

Update: I ficed the problem. :/

[Grok]

Try using properties instead of a function, in your class, example:

Code Select Expand


'
' this is in the class module MyClass
'
Public Property Get UserName() As String
    UserName = HashStuff.vUser
End Property

Public Property Let UserName(ByVal NewUserName As String)
    HashStuff.vUser = NewUserName
End Property


[Dyndrilliac]

His problem is using it like a variable when it is a function.

bConnecter1.Username("Username")