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
Comments
0 B
|👍
/👎