Public Class Form1
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button9.Click
        Dim Seite1 As New SEITE1
        Me.Controls.Add(Seite1)
        Seite1.Location = New Point(50, 50)
    End Sub
 
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button10.Click
        Dim Seite2 As New SEITE2
        Me.Controls.Add(Seite2)
        Seite2.Location = New Point(50, 50)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class
 
 
 
 
Public Class SEITE1
 
    Private Sub SEITE1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.ParentForm.Controls.Remove(Me)
    End Sub
End Class
 
 
 
 
 
Public Class SEITE2
 
    Private Sub SEITE2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button100_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button100.Click, Button100.Click
        Me.ParentForm.Controls.Remove(Me)
    End Sub
End Class