Public Class BooleanToVisibilityConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      Dim VisbibilityBottom As Visibility = Visibility.Hidden
      If CBool(value) Then
         VisbibilityBottom = Visibility.Visible
      Else
         VisbibilityBottom = Visibility.Hidden
      End If
      Return VisbibilityBottom
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Throw New NotImplementedException
   End Function

End Class