Hi People,

I'm trying to add properties to my userform1.

I have function declared in class module:

Function Login() As String
Login = Environ("USERNAME")
End Function

And i want to have a property from userform1 object inside userform1 for each private sub (userform_activate, listbox_change etc.).

How can I do this?

I would like to have property like this (and when I have userform2 - i want to have this property also here if it is possible).
Private Sub UserForm_Activate()

dim Name as string 
dim LastRow as long 

LastRow  = A_Wniosek.Range("A1").CurrentRegion.Rows.Count

Name = userform1.login() & "_" & LastRow

end sub
Thank You in advance for your help,
Best regards,
Jacek Antek