Private Sub Form_Load()If App.PrevInstance Then         MsgBox ("程序已经运行,不能再次装载。"), vbExclamation         End
End If.........
...............
...................