“程序的屏幕就跳动一下”？
如果只是装模作样跳动一下，可以
sub form_click()
hide
show
end sub

刷新是用refresh的

谢谢，这样是可以，不过我的想法是上下移动，就像拍篮球一样
上下移动，不过不要移动太大，，这种意图不好用文字表明？
还是谢谢你啊！

在窗体上加一个计时器。
然后添加如下代码：
Dim ci As Integer

Private Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ci = 10
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Select Case ci
        Case 10, 8, 6, 4, 2
            Top = Top - 600
            ci = ci - 1
        Case 9, 7, 5, 3, 1
            Top = Top + 600
            ci = ci - 1
        Case 0
            Timer1.Enabled = False
    End Select
End Sub

还不太明白是什么意思,呵呵

他说的就是qq的那个“抖动窗口”

还是老大厉害，就是象那种效果模样，谢谢啊，我试试。[em1]