Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim f As New Form2(100, "Test")
      f.Show()
   End Sub
End Class

Public Class Form2
 
   Private m_Value1 As Integer
   Private m_Value2 As String
 
   Public Sub New(ByVal Value1 As Integer, ByVal Value2 As String)
      Me.InitializeComponent()
 
      Me.m_Value1 = Value1
      Me.m_Value2 = Value2
   End Sub
 
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Me.TuWas()
   End Sub
 
   Private Sub TuWas()
      MsgBox(Me.m_Value1.ToString)
      MsgBox(Me.m_Value2)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control