Public Class Form2
  Private _caller As Integer
 
  Public Property Caller() As Integer
    Get
      return _caller
    End Get
    Set(ByVal value As Integer)
      _caller = value
    End Set
  End Property
 
End Class

With New Form2
  .Caller = 1
  .Show...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de