Dim f As New Form
        Dim t As Type = f.GetType()
        Dim mi As Reflection.MethodInfo = t.GetMethod("ShowDialog", New Type() _
          {})
        If mi Is Nothing Then Return
        mi.Invoke(f, Nothing)