WPF VB.Net

    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    x:Class="Visibility_Layout_Samp.Window1"
    Title="UIELement.Visibility Sample">
      
            
                Visibility="Visible"
                Visibility="Hidden"
                Visibility="Collapsed" 
                
            
                A TextBox
                
            
        


//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Namespace Visibility_Layout_Samp
  Public Partial Class Window1
    Inherits Window
    Public Sub contentVis(sender As Object, e As RoutedEventArgs)
      tb1.Visibility = System.Windows.Visibility.Visible
      txt1.Text = "Visibility is now set to Visible."
    End Sub
    Public Sub contentHid(sender As Object, e As RoutedEventArgs)
      tb1.Visibility = System.Windows.Visibility.Hidden
      txt1.Text = "Visibility is now set to Hidden."
    End Sub
    Public Sub contentCol(sender As Object, e As RoutedEventArgs)
      tb1.Visibility = System.Windows.Visibility.Collapsed
      txt1.Text = "Visibility is now set to Collapsed."
    End Sub
  End Class
End Namespace