diff --git a/harbour/contrib/hgf/tests/form2.prg b/harbour/contrib/hgf/tests/form2.prg
new file mode 100644
index 0000000000..117ecd5499
--- /dev/null
+++ b/harbour/contrib/hgf/tests/form2.prg
@@ -0,0 +1,37 @@
+//
+// $Id$
+//
+
+// Inheriting from Class TForm sample
+
+#include "hbclass.ch"
+
+function Main()
+
+   local oForm2 := TForm2():New()
+
+   oForm2:ShowModal()
+
+return nil
+
+CLASS TForm2 FROM TForm
+
+   METHOD New()
+
+   METHOD Button1Click( oSender )
+
+ENDCLASS
+
+METHOD New() CLASS TForm2
+
+   Super:New()
+
+   ::cCaption = ::ClassName()
+
+return Self
+
+METHOD Button1Click( oSender ) CLASS TForm2
+
+   MsgInfo( oSender:ClassName() )
+
+return nil
\ No newline at end of file