Dim links As Integer = Me.Left + Me.Panel1.Left
 
        Dim Form_eingeben As New Eingeben  ' die zweite Form
        Form_eingeben.Size = New Size(Me.Panel1.Width, Me.Panel1.Height)
        Form_eingeben.Location = New Point(Me.Left + Me.Panel1.Left, _
          Me.Panel1.Top)
        'Form_eingeben.Location = New Point(Me.Location.X, 100)
        Form_eingeben.ShowDialog()

Hänk

(Wer früh aufsteht hat mehr vom Tag)