With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exHeaderFilterBarButton) = 16777216
	.ColumnFilterButton("Name") = True
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exFooterFilterBarButton) = 16777216
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe"
	.ApplyFilter 
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exCursorHoverColumn) = 16777216
End With

With ExFileView1
	.Background(exCursorHoverColumn) = 16777215
End With

With ExFileView1
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartVisible(exHScroll,exLeftB2Part) = True
	.ScrollPartVisible(exHScroll,exRightB6Part) = True
	.ScrollPartVisible(exHScroll,exRightB5Part) = True
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartCaption(exHScroll,exLeftB1Part) = "1"
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.ScrollToolTip(exHScroll) = "This is a tooltip being shown when you click and drag the thumb in the vetrical scroll bar"
	.ScrollPartCaption(exHScroll,exThumbPart) = "This is just a text"
	.ScrollFont(exVScroll).Size = 12
	.ScrollWidth = 20
	.ScrollThumbSize(exVScroll) = 148
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.ScrollThumbSize(exHScroll) = 64
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.ScrollOrderParts(exHScroll) = "t,l,r"
	.ScrollOrderParts(exVScroll) = "t,l,r"
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.Template = "BackColor = RGB(255,0,0)"
End With

With ExFileView1
	.ExecuteTemplate "BackColor = RGB(255,0,0)"
End With

With ExFileView1
	.ColumnsAllowSizing = True
End With

With ExFileView1
	.DefaultItemHeight = 13
	.Refresh 
End With

With ExFileView1
	.BeginUpdate 
	.ForeColor = 255
	.BackColor = 16777215
	.EndUpdate 
End With

With ExFileView1
	.BackColor = 13158600
End With

With ExFileView1
	.ForeColor = 7895160
End With

With ExFileView1
	.HeaderVisible = False
End With

With ExFileView1
	.Font.Name = "Tahoma"
End With

With ExFileView1
	.SelBackColor = 0
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.SelBackColor = 16777216
	.SelForeColor = 0
End With

With ExFileView1
	.Enabled = False
End With

With ExFileView1
	.HeaderAppearance = Flat
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.BackColorHeader = 16777216
End With

With ExFileView1
	.BackColorHeader = 65535
	.HeaderAppearance = Flat
End With

With ExFileView1
	.ForeColorHeader = 255
End With

With ExFileView1
	.Appearance = None2
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\hot.ebn"
	.Appearance = 16777216
	.BackColor = 16777215
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperLeft
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperRight
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperCenter
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerLeft
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerRight
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = Stretch
End With

With ExFileView1
	.Picture = ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = MiddleCenter
End With

With ExFileView1
	.HasCheckBox = CheckBox
End With

With ExFileView1
	.HasCheckBox = PartialCheckBox
	.ExpandFolders = True
End With

With ExFileView1
	.HasCheckBox = PartialCheckBox
	.ExpandFolders = True
End With

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("*")
		.Folder = True
		.IconIndex = 1234
		.Apply 
	End With
End With

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("*")
		.IconIndex = 1234
		.Apply 
	End With
End With

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("*.bat *.com *.exe")
		.IconIndex = 1234
		.Apply 
	End With
End With

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	With .FileTypes.Add("W*")
		.Folder = True
		.IconIndex = 1234
		.Bold = True
		.Apply 
	End With
End With

With ExFileView1
	.IncludeFolders = False
End With

With ExFileView1
	.ExploreFromHere = "c:\Program Files"
End With

With ExFileView1
	.IncludeFilter = "*.exe *.com *.bat"
End With

With ExFileView1
	.ExcludeFilter = "*.exe *.com *.bat"
End With

With ExFileView1
	.SingleSel = False
End With

With ExFileView1
	.Refresh 
End With

With ExFileView1
	.AllowMenuContext = False
End With

With ExFileView1
	.AutoUpdate = True
End With

With ExFileView1
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.ChangeNotification = True
End With

With ExFileView1
	.BrowseFolderPath = "c:/temp"
End With

With ExFileView1
	.ColumnVisible("Type") = False
End With

With ExFileView1
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.AllowRename = True
End With

With ExFileView1
	.IncludeParent = False
End With

With ExFileView1
	.ExpandFolders = True
End With

With ExFileView1
	.ExpandFolders = True
	.HasLines = True
End With

With ExFileView1
	.ExpandFolders = True
	.HasLines = True
	.HasLinesAtRoot = True
End With

With ExFileView1
	.ExpandFolders = True
	.HasLines = True
	.HasLinesAtRoot = True
	.HasButtons = False
End With

With ExFileView1
	.IncludeFiles = False
End With

With ExFileView1
	.LoadIcon ExFileView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234
	.IncludeParentIconKey = 1234
End With

With ExFileView1
	.ExpandFolders = True
	.ExpandOnDblClk = True
End With

With ExFileView1
	.Search = "A*.A*"
End With

With ExFileView1
	.StopSearch 
End With

With ExFileView1
	.ModifiedDaysAgo = 356
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.FilterBarDropDownWidth("Name") = "-256"
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.FilterBarDropDownWidth("Name") = 2
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.AddColumnCustomFilter "Name","(Executable files)","*.exe|*.com|*.bat"
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.AddColumnCustomFilter "Name","(Executable files)","*.exe|*.com|*.bat"
	.ClearColumnCustomFilters "Name"
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.FilterBarDropDownHeight = "-256"
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarCaption = "new filter"
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.ClearFilter 
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarHeight = 32
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarForeColor = 255
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarBackColor = 255
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarBackColor = 16777216
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.ColumnFilterType("Name") = exPattern
	.ColumnFilter("Name") = "*.exe|*.com|*.bat"
	.ApplyFilter 
	.FilterBarFont.Name = "Verdana"
End With

With ExFileView1
	.Sort "Name",False
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.Description(exFilterBarAll) = "new name for (All)"
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.Description(exFilterBarFilterForCaption) = "new caption"
End With

With ExFileView1
	.ColumnFilterButton("Name") = True
	.Description(exFilterBarFilterTitle) = ""
	.Description(exFilterBarPatternFilterTitle) = ""
	.Description(exFilterBarTooltip) = ""
	.Description(exFilterBarPatternTooltip) = ""
	.Description(exFilterBarFilterForTooltip) = ""
End With

With ExFileView1
	.ExpandFolders = True
	.Expand "WINNT"
End With

With ExFileView1
	.ExpandFolders = True
	.IncludeFilesInFolder = True
End With

With ExFileView1
	.IncludeFolderFilter = "W*"
End With

With ExFileView1
	.ExcludeFolderFilter = "W*"
End With

With ExFileView1
	.ColumnCaption("Name") = "__ new name __"
End With

With ExFileView1
	.ModifiedDaysAgo = 356
	.Option(exModifiedToday) = "__ new today __"
	.Refresh 
End With

With ExFileView1
	.ModifiedDaysAgo = 356
	.Option(exModifiedDaysAgo) = "vor %i Tagen"
	.Refresh 
End With

With ExFileView1
	.Option(exModifiedDateFormat) = "ddd, MMM dd yy"
	.Refresh 
End With

With ExFileView1
	.Option(exModifiedDateFormat) = "yyyyy "
	.Option(exModifiedTimeFormat) = "hh:mm"
	.Refresh 
End With

With ExFileView1
	.Option(exHideFileExtensionsForKnownFileTypes) = True
	.Refresh 
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = 16777216
	.Background(exHSThumbP) = 33554432
	.Background(exHSThumbH) = 50331648
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = 16777216
	.Background(exHSThumbP) = 33554432
	.Background(exHSThumbH) = 50331648
	.Background(exVSThumb) = 16777216
	.Background(exVSThumbP) = 33554432
	.Background(exVSThumbH) = 50331648
	.ColumnAutoResize = False
	.ColumnWidth("Name") = 256
End With

With ExFileView1
	var_Count = .Get(SelItems).Count
End With

With ExFileView1
	var_Count = .Get(AllItems).Count
End With

With ExFileView1
	.HasCheckBox = CheckBox
	var_Count = .Get(CheckItems).Count
End With

With ExFileView1
	var_Count = .Get(VisibleItems).Count
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.ForeColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.ForeColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.ForeColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.ForeColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.BackColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.BackColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.BackColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.BackColor = 255
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Bold = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Bold = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Bold = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Bold = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Italic = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Italic = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Italic = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Italic = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.StrikeOut = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.StrikeOut = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.StrikeOut = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.StrikeOut = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Underline = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Underline = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Underline = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Underline = True
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = True
		.Type = "__newtype__"
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("W*")
		.Folder = True
		.Type = "__newtype__"
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*")
		.Folder = False
		.Type = "__newtype__"
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("*.bat")
		.Folder = False
		.Type = "__newtype__"
		.Apply 
	End With
End With

With ExFileView1
	With .FileTypes.Add("TEMP")
		.HasPattern = False
		.Folder = True
		.Bold = True
		.Apply 
	End With
End With