In AddQuestForm.vb, add another imports line:

VB Code:
  1. Imports WindowsApplication1.DefaultNamespace

And change this line:

VB Code:
  1. Dim mainform As WindowsApplication1.DefaultNamespace.MainForm

to this:

VB Code:
  1. Dim mainform As mainform