Get Top Quote

  Friend Function GetTopmostQuote() As QuoteForm
    If ActiveMdiChild Is Nothing Then Return Nothing
    Dim f() As Form = MdiChildren
    For x As Integer = f.GetUpperBound(0) To 0 Step -1
      If TypeOf f(x) Is QuoteForm Then Return LastActivatedQuote
    Next
    Return Nothing
  End Function