只要利用mousemove将位置调整就行拉 用timer控制 具体操作如下： 先添加timer1，并设置interval为1000 Dim Move1 As Boolean

Private Sub Form_Load() Form1. top = 70'预留空位 End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.Top = 0 Move1 = True End Sub

Private Sub Timer1_Timer() If Move1 = True Then Move1 = False: Form1.Top = -Form1.Height + 70'预留空位 End Sub

[此贴子已经被作者于2005-10-6 11:59:29编辑过]