VB中 怎么让窗体总是在最上层，不会被其他的窗体覆盖~？

申明API：setwindowpossetwindowpos mehwnd,-2,0,0,0,0,3setwindowpos mehwnd,-1,0,0,0,0,3 对于哪个是置顶，哪行是取消置顶我忘记了

在窗体里放个控件Timer1，设置Interval属性为100。窗体内复制一下代码：
Private Sub Timer1_Timer()
If MeLeft < 0 Then MeLeft = 0
If MeTop < 0 Then MeTop = 0
If MeLeft + MeWidth > ScreenWidth Then
MeLeft = ScreenWidth - MeWidth
End If
If MeTop + MeHeight > ScreenHeight Then
MeTop = ScreenHeight - MeHeight
End If

End Sub

---