Hej!
Har försökt testa att överföra info med egendeklarerad variabel men får det inte att fungera. Vad gör jag för fel?

Module1

Option Explicit
Public Type Player
name As String
End Type


Form1

Option Explicit
Dim Spel As Player

Private Sub Form_Load()
End Sub

Private Sub Text1_Change() ' Sub hämtar text och skriver ut i samma
Spel.name = Text1.Text ' formulär.Fungerar OK.
Print Spel.name
End Sub

Private Sub Command1_Click() ' skifta till formulär 2
Load Form2
Form1.Hide
Form2.Show
End Sub

Form2

Option Explicit
Dim skriv As Player

Private Sub Form_Load() ' skall skrva ut det som skrevs i
Dim skri As String ' formulär 1.
skri = skriv.name
Print skri
End Sub

Private Sub Command1_Click()
End
End Sub

Om du känner till om klasser och liknande i vb skulle du kunnat löst det med det. Men om du vill envisas med typer får du i alla fall implementera lite av vb's klass stöd:
<code>
'Module: Module1
Option Explicit

Public Type Player
Name As String
End Type

'Form: Form1

Option Explicit

Private mSpel As Player

Friend Property Get Spel() As Player
Spel = mSpel
End Property
Friend Property Let Spel(Value As Player)
mSpel = Value
End Property

Private Sub Form_Load()

End Sub

Private Sub Text1_Change() ' Sub hämtar text och skriver ut i samma
mSpel.Name = Text1.Text ' formulär.Fungerar OK.
Print mSpel.Name
End Sub

Private Sub Command1_Click() ' skifta till formulär 2
Form1.Hide
Load Form2
Form2.Spel = mSpel
Form2.Show
End Sub

'Form: Form2

Option Explicit

Private mSpel As Player

Friend Property Get Spel() As Player
Spel = mSpel
End Property
Friend Property Let Spel(Value As Player)
mSpel = Value
End Property

Private Sub Form_Load() ' skall skrva ut det som skrevs i
Dim skri As String ' formulär 1.
skri = mSpel.name
Print skri
End Sub

Private Sub Command1_Click()
Dim frmForm as Form
For Each frmForm In Forms
Unload frmForm
Next
End Sub
</code>