可以用Dir(D:\1.bmp)或者Dir(D:\2.bmp)来检查有无这个文件，如果没有就创建，如果有就先删除后创建。
还要声明一个全局变量，用来设置文件名，最先设为"D:\1.bmp"，以后轮流设置为"D:\2.bmp"或"D:\1.bmp"。
参考代码如下：

Dim fName As String

Private Sub Form_Load()
Timer1.Interval = 60000
fName = "D:\1.bmp"
'调用截屏模块
'调用保存模块，文件名是fName
End Sub

Private Sub Timer1_Timer()
If fName = "D:\2.bmp" Then fName = "D:\1.bmp" Else fName = "D:\2.bmp"
If Len(Dir(fName)) Then Kill fName
'调用截屏模块
'调用保存模块，文件名是fName
'调用对比模块
End Sub

多年项目开发经验,专业做毕业设计等中小型项目开发,熟悉各种数据库操作(sql server ,access ,mysql等),熟练应用VC, Delphi, VB, ASP, C#等开发语言.若有需要请联系QQ: 383147818 加我请注明: pfan毕设

多年项目开发经验,专业做毕业设计等中小型项目开发,熟悉各种数据库操作(sql server ,access ,mysql等),熟练应用VC, Delphi, VB, ASP, C#等开发语言.若有需要请联系QQ: 383147818 请注明: pfan毕设