Public Function GetForm(ByVal Obj As Object) As Object  
    Dim ProcName As String = MethodBase.GetCurrentMethod().Name()
	Try
         If TypeOf Obj Is Form Then
             GetForm = CType(Obj, Form)
         ElseIf TypeOf Obj Is MenuStrip Then
             GetForm = GetForm(CType(Obj, MenuStrip).FindForm)
         ElseIf TypeOf Obj Is ToolStripMenuItem Then
             GetForm = GetForm(CType(Obj, ToolStripMenuItem).Owner)
         ElseIf TypeOf Obj Is ToolStripButton Then
             GetForm = GetForm(CType(Obj, ToolStripButton).Owner)
         ElseIf TypeOf Obj Is ToolStripLabel Then
             GetForm = GetForm(CType(Obj, ToolStripLabel).Owner)
         ElseIf TypeOf Obj Is ToolStripTextBox Then
             GetForm = GetForm(CType(Obj, ToolStripTextBox).Owner)
         ElseIf TypeOf Obj Is ToolStripSplitButton Then
             GetForm = GetForm(CType(Obj, ToolStripSplitButton).Owner)
         ElseIf TypeOf Obj Is ToolStripDropDownMenu Then '<<<<<<<<<<<<<<<<<<<<<<
             GetForm = GetForm(CType(Obj, ToolStripDropDownMenu).FindForm) '<<<<
         ElseIf TypeOf Obj Is ToolStrip Then
             GetForm = GetForm(CType(Obj, ToolStrip).FindForm)
         ElseIf IsNothing(Obj) Then
         Else
         End If
     Catch ex As Exception
         MsgBox(ex.Message, , ProcName)
     End Try
 End Function