VB多开游戏

'这是两个的：
Private Sub Form_Load()
If Dir("d:\1.txt") = Empty Then
Open "d:\1.txt" For Append As #1
Print #1, "a"
Close #1
ElseIf Dir("d:\2.txt") = Empty Then
Open "d:\2.txt" For Append As #1
Print #1, "a"
Close #1
Else
MsgBox "您已经打开两个我了!!"
End
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Dir("d:\1.txt") <> Empty Then
Kill ("d:\1.txt")
ElseIf Dir("d:\2.txt") <> Empty Then
Kill ("d:\2.txt")
End If
End Sub

不能多开才不好做
基本上你现在做的程序是想开几个就开几个 :)