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