Public Class frmMove
 
    Dim WithEvents sc As New SplitContainer With _
           {.Parent = Me, .Width = 200, .Top = 100, .Orientation = _
           Orientation.Horizontal}
    Dim lbl As New Label With _
           {.Parent = Me, .Text = "Hallo Welt", .Left = 210, .Width = 100}
 
    Private Sub frmMove_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 320
        sc.BackColor = Color.White
    End Sub
 
 
    Private Sub sc_SplitterMoved(sender As Object, _
        e As System.Windows.Forms.SplitterEventArgs) Handles sc.SplitterMoved
        lbl.Top = sc.Top + sc.SplitterDistance
    End Sub
End Class