怎么让 click 和 dblclick 用计时器自动

不知道你要干嘛，能说详细点吗

我猜你的目的是：每次单击窗体，使窗体在两种样式之间变换，对吧？
这不是单击和双击的区别，每次都是单击好么，只是区分成【奇数次】和【偶数次】单击而已
所以你这个要求根本用不到双击事件，把里面的代码都写到单击事件中去；也用不到定时器控件（除非你是想让窗体定时自动变样，即使这样也只需要一个定时器，在Timer事件中执行一句Form_Click就够了）
窗体单击事件代码中加上一个标记变量（比如Static flag As Boolean），再加一句flag=Not flag，原有的“单击”和“双击”的代码写成If flag Then和Else的两个分支即可

原来你是想自动交替显示【单击窗体】和【双击窗体】时所显示的内容么……
参考代码：
Private Sub Timer1_Timer()
Static Flag As Boolean
Flag = Not Flag
If Flag Then Form_Click Else Form_DblClick
End Sub

有一个小的方法.将单击的功能写成函数,双击的功能写成函数.然后定时器一开.想调哪个调哪个函数实现单击双击的功能就好了.