模拟QQ抖动窗口

最近闲来无事，打开了发霉的QQ，查看了一些信息与空间，在打开某个聊天窗口的时候，不经意间点到了抖动窗体按钮，突然有个小想法，Access也可以做一个类似QQ抖动的功能，原理很简单，我们只需要来改变窗口的位置，来回的移动窗口，移的快一点不就可以了嘛。
先来看一下效果：

第一步：建窗体

具体的控件属性如下表

控件类型 控件名称 其它属性 其它说明
属性名 属性值
组合框 list_Table 行来源类型 值列表 标签标题名：设置抖动频率
行来源 10;15;20;30;50;100
文本框 txtTime 默认值 200 标签标题名：设置抖动次数
按钮 btnShake 标题 抖动

第二步：添加按钮的单击事件

Private Sub btnShake_Click()
    Dim i As Long
    If Not IsNull(Me.FetchDefaults) Then
        For i = 1 To Me.txtTime
     
            Me.Form.Move Me.WindowLeft + Me.txtFrequency, Me.WindowTop + Me.txtFrequency
            Me.Form.Move Me.WindowLeft - Me.txtFrequency, Me.WindowTop - Me.txtFrequency
            
            Me.Form.Move Me.WindowLeft - Me.txtFrequency, Me.WindowTop - Me.txtFrequency
            Me.Form.Move Me.WindowLeft + Me.txtFrequency, Me.WindowTop + Me.txtFrequency
        Next
    End If

End Sub

第三步：运行测试

好了到这里一个示例就做好了，大家都去试一下吧

示例用到的知识点：
a. 窗体的Move方法
b. 窗体的WindowLeft与WindowTop两个属性