Private Sub btnCreateNewCase_Click(sender As Object, e As RoutedEventArgs) Dim cnc As CreateNewCase_uc = New CreateNewCase_uc grid1.Children.Clear() grid1.Children.Add(cnc) End Sub