Private mIrgendeinWert as Double
 
Public Property IrgendeinWert as Double
    Get
        Return mIrgendeinWert
    End Get
    Set(ByVal value as Double)
        mIrgendeinWert = value
    End Set
End Property

Dim myForm2 As Form2 = New Form2
myForm2.IrgendeinWert = 500
myForm2.Show