Visual Basic

Imports System
Imports System.Runtime.InteropServices

Namespace MyPopUpBHO

#Region "Interface Definition"
    <structlayout(layoutkind.sequential,> _
    Public Structure OLECMDTEXT
        Public cmdtextf As UInt32
        Public cwActual As UInt32
        Public cwBuf As UInt32
        Public rgwz As Char
    End Structure

    <structlayout(layoutkind.sequential)> _
    Public Structure OLECMD
        Public cmdID As UInt32
        Public cmdf As UInt32
    End Structure

    ' Interop definition for IOleCommandTarget.
    <comimport(),>        InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
    Public Interface IOleCommandTarget

        Sub QueryStatus( _
            ByRef pguidCmdGroup As Guid, _
            ByVal cCmds As UInt32, _
            <marshalas(unmanagedtype.lparray,> ByVal prgCmds() As OLECMD, _
            ByRef pCmdText As OLECMDTEXT)

        Sub Exec( _
            ByRef pguidCmdGroup As Guid, _
            ByVal nCmdId As Integer, _
            ByVal nCmdExecOpt As Integer, _
            ByRef pvaIn As IntPtr, _
            <marshalas(unmanagedtype.sysint)> ByRef pvaOut As IntPtr)

    End Interface

#End Regino

    <guidattribute("b722bccb-4e68-101b-a2bc-00aa00404770")> _
    Public Class ctvb

        Implements IOleCommandTarget

        Public Sub Exec( _
            ByRef pguidCmdGroup As Guid, _
            ByVal nCmdId As Integer, _
            ByVal nCmdExecOpt As Integer, _
            ByRef pvaIn As IntPtr, _
            <marshalas(unmanagedtype.sysint)> ByRef pvaOut As IntPtr) Implements IOleCommandTarget.Exec
            System.Windows.Forms.MessageBox.Show("Hiya Exec!")
        End Sub

        Public Sub QueryStatus(ByRef pguidCmdGroup As Guid, _
          ByVal cCmds As UInt32, _
          <marshalas(unmanagedtype.lparray,> ByVal prgCmds() As OLECMD, _
          ByRef pCmdText As OLECMDTEXT) Implements IOleCommandTarget.QueryStatus
            System.Windows.Forms.MessageBox.Show("Hiya QueryStatus!")
        End Sub
    End Class

End Namespace

Dim objInv As frmWaste = Nothing

 For i As Integer = 0 To My.Application.OpenForms.Count - 1
                Select Case Filename
                    Case "frmAdd"
                        If (My.Application.OpenForms(i).Name = Filename) Then
                            objInv  = My.Application.OpenForms(i)
                            If (objInv .UserID = id) Then
                                objInv .Focus()
                                Return True
                            End If
                        End If
		End Select
Next