VB怎么让Form2始终在Form1前面？

点击Form1出现Form2，再点击Form1可以对Form1进行操作，但Form2始终在最前面。请问用VB怎么实现上述效果？

Form1中的代码（添加个按钮）

Private Sub Command1_Click()
Form2.Show
End Sub

***************************************************************

Form2中的代码

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)

Private Sub Form_Load()
Me.Show
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
'……其它代码
End Sub

建立一个类模块 在里边定一个公共的

type parm     str as string end type public parm1 as parm    '初始化

在form1 点继续的时候写

parm1.str = text1.value

form2.show

unload me

在form2里边放一个文本框或者标签 ,当窗体加载的时候写

text1.value = parm1.str