Dim k As Boolean
Private Sub CommandButton1_Click()
k = True
Do While k = True
i = Int((10 - 1 + 1) * Rnd + 1)
Image1.Picture = LoadPicture("d:\7pic\" & i & ".jpg")
DoEvents
Loop
End Sub

Private Sub CommandButton2_Click()
k = False
End Sub

Private Sub Image1_Click()
Image1.stretch = True
End Sub
怎么让抽到的图片在文件夹里删除，并且还不影响程序的正常运行！求高手指点～

非常感谢！我就是这个意思！