Private vigilante As Observer
Public Sub Form_Open()
vigilante = New Observer(DirChooser1.FileView) As "VigiloFileview"
DirChooser1.ShowFile = True
DirChooser1.FileView.View = FileView.Detailed
End
Public Sub VigiloFileview_Click()
Desktop.Open(DirChooser1.SelectedPath &/ DirChooser1.FileView.Current)
End