Private iLabelIndex as integer
 
public Property Let LabelIndex(Index as Integer)
   iLabelIndex = Index
end Sub
 
Public Property Get Labelindex() as Integer
   LabelIndex = iLabelIndex
End Sub
 
Private Sub Label1_click(index as integer)
   LabelIndex = Index
   load form2   'Kannste dir eigentlich sparen, wird durch .show sowieso 
   ' ausgeführt
   form.show
End Sub
 
Sub Form2_Load
Dim iDerIndex as Integer
   iDerIndex=Form1.LabelIndex
end Sub