//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