Private Sub Form_Load() MousePointer = vbHourglass strTime = Now() If DateDiff("s", strTime, Now()) > 4 Then MousePointer = 0 Unload Me End If End SubPrivate Sub Image1_Click() Unload Me MDIForm1 End SubPrivate Sub Timer1_Timer() If DateDiff("s", strTime, Now()) > 1 Then MousePointer = 0 Unload Me MDIForm1 End If End Sub 这个是写在Form1 中的代码,应该可以实现你的要求了吧或是还不明白,加我的MSn:[email protected]
Private Sub Form_Load()
show
End Sub
MousePointer = vbHourglass
strTime = Now()
If DateDiff("s", strTime, Now()) > 4 Then
MousePointer = 0
Unload Me
End If
End SubPrivate Sub Image1_Click()
Unload Me
MDIForm1
End SubPrivate Sub Timer1_Timer()
If DateDiff("s", strTime, Now()) > 1 Then
MousePointer = 0
Unload Me
MDIForm1
End If
End Sub
这个是写在Form1 中的代码,应该可以实现你的要求了吧或是还不明白,加我的MSn:[email protected]