function bægge ender med vadi?

Det er rigtigt du skal bruge property, men du skal kun bruge an af flg. kombinationsmuligheder. let/get eller set/get den første bruges hvis det er simple variable du "leger" med. Set bruges til at tildele objekter værdier (eksempel Font property).

Dvs. prøv at bruge flg. kode

Public Property Get Session() As Variant
  Session = m_Session3
End Property

Public Property Let Session(ByVal vNewValue As Variant)
  m_Session3  = vNewValue
End Property

Private Sub Command1_Click()
  Session("login") = "?"
End Sub

samt

Private Sub Command1_Click()
  msgbox Session("login")
End Sub

Håber det var det du spurgte om, ellers må du lige uddybe igen.

Kedde

Ja det virker den enevej men ikke bægge veje på samme tid

alså. jeg skal have 2 vadier ind/ud på samme tid, jeg skal lave samme function som ASP Session() bare i vb. :-)

Jeg har fået det til at virke, hvis nogen vil se hvordan så er koden her. :-)

Option Explicit

Private m_Session As Object

Public Property Get Session() As Object
    Set Session = m_Session
End Property

Private Sub Form_Load()
Dim varName As Variant
  Set m_Session = CreateObject("Scripting.Dictionary")
 
  Session("Name") = "Username" 'Tilføje
  Session("Pass") = "Password" 'Tilføje

  Me.Caption = Session("Pass") 'Vis indhold af Pass

  'Lav en liste over indhold
  For Each varName In Session
    List1.AddItem varName & " = " & Session(varName)
  Next

End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set m_Session = Nothing
End Sub