Option Explicit
Implements ICommand
........
.......
........
Private Property Get ICommand_HelpContextID() As Long

End Property

Private Property Get ICommand_HelpFile() As String

End Property
Private Sub ICommand_OnClick()
 MsgBox "1"
 Form1.Show
 MsgBox "2"
End Sub

Dim frm as Form1
Set frm = New Form1
frm.Show

Private Sub ICommand_OnClick()
Form1.Show vbModal
End Sub

Private Declare Function SetWindowPos Lib "user32" _
   (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, _
    ByVal wFlags As Long) As Long
Private Sub Form_Activate()
  Call SetWindowPos(Me.hwnd, HWND_TOPMOST,  0 ,  0 ,  0 ,  0 , FLAGS)
End Sub

In the form use this
--------------------
In General declarations of the form
------------------------------------
Public mypApp as IApplication

In the form 
-----------
Public Property Get Application() As IApplication
    Set Application = mypApp
End Property
    
Public Property Set Application(ByVal pApp As IApplication)
    Set mypApp = pApp
End Property


In ICommand_OnClick
-------------------
Private Sub ICommand_OnClick()
    Set Form1.Application = m_pApp
    Form1.Show
End Sub