像网际快车那样的浮动窗口是怎么实现的

像网际快车那样的浮动窗口是如何实现的？
我想达到像网际快车那样的浮动窗口的效果，请问如何能够实现？

[解决办法]
用setwindowpos让其始终在上,难道不可以操作其它窗口吗？你是不是以模态形式显示你浮动窗口了（form.show vbmodal)?
[解决办法]
'Form1 模拟 Excel 主界面
Private Sub Command1_Click()
Form2.Show , Me
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Text1 = X & ", " & Y
End Sub

'Form2 模拟 页面设置界面
Private Sub Command1_Click()
Me.Hide
Form3.Show , Form1
End Sub

'Form2 模拟单元格选择界面
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Form2.Text1.SelText = Text1
Form2.Show
End Sub