Public Class Form1
 
    Dim i As Integer
 
    Public Sub New()
 
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
 
        Timer1.Interval = 2000
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim Uc_1 As UserControl1
        Dim Uc_2 As UserControl2
 
        Select Case i
 
            Case 1
                Uc_2 = New UserControl2
                Uc_1 = New UserControl1
                Uc_1.Dispose()
                Uc_2.Parent = Panel1
                Uc_2.Show()
                i = i - 1
 
            Case 0
                Uc_1 = New UserControl1
                Uc_2 = New UserControl2
                Uc_2.Dispose()
                Uc_1.Parent = Panel1
                Uc_1.Show()
                i = i + 1
 
        End Select
    End Sub
End Class