我想，不用按钮实现肯定能达到，而且不复杂。因为我接触过AS3语言，很方便的。但是没有接触过VB。抓瞎了，什么也看不懂。斑竹帮我想想办法。最终的目的是没有窗口，没有按钮，程序运行完没事了，用户都没察觉。

建个模块输入
sub Main() '在修改入口就行了。

6楼正解，只把所有运行在 load 中就行了，运行了自己end 一下就完结了，前面加个 from.hide  隐了自己。就不显了。原来VB6做服务很麻烦，还有时出些小问题，就用这种方式做了个伪服务，还不错，能用。

还要自动关闭程序啊？要是手动关闭的话可以试下unload事件

Private Sub Form_Load()
你的代码
End
End Sub

你好，谢谢你的回复。现在的问题是先解决非得要按按钮才执行的问题。我想不按按钮让它自动执行。目前的状况是这样的，窗体中有2个按钮，代码窗口中是下面的语句：
Private Sub Command1_Click()
Dim GetCpu
End Sub

Public Function GetCpu() As String
On Error Resume Next
Dim TmpCode$
Dim ObjWMIService As Object, objItem As Object, colItems As Object
Set ObjWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = ObjWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
TmpCode = TmpCode & " " & objItem.ProcessorId
Next
GetCpu = Trim(TmpCode)
End Function


Private Sub Command2_Click()
Open "F:\aa.dat" For Output As #1
Write #1, GetCpu
Close #1
End Sub
麻烦你给看看怎样去掉按钮，让它自动运行？

再麻烦你给看看16楼的问题。怎么改一下。

再麻烦你给看看怎样去掉按钮，让它自动运行？

再麻烦你给看看16楼的问题，怎么去掉按钮，让它自动运行，怎么改一下。谢了。

谢谢参与本贴的各位兄弟。问题都解决了。祝你们今年都走红红地桃花运！结贴啦