diff --git a/comp/src/gb.form.dialog/.src/FFileDialog.class b/comp/src/gb.form.dialog/.src/FFileDialog.class
index e251afef8..500dc4747 100644
--- a/comp/src/gb.form.dialog/.src/FFileDialog.class
+++ b/comp/src/gb.form.dialog/.src/FFileDialog.class
@@ -130,3 +130,9 @@ Public Sub Form_Close()
   Dialog.Key = ""
 
 End
+
+Public Sub chkAutoExt_Click()
+
+  fchChoose.AutoExt = chkAutoExt.Value
+
+End