is there any way to dismiss when Application_Reminder is called.

I need to excute some code when reminder called, then I'd like to dismiss
that reminder without clicking the dismiss button.

when below code is running, the reminder cannot dismiss coz reminder is not
visable. dismiss only can work it's visible.

How can I solve this problem?

Help me,
soworl

my code 1 ==============================
Dim ReminderClass As New Class1

Private Sub Application_Startup()
ReminderClass.init
End Sub

Private Sub Application_Reminder(ByVal Item As Object)
'DoSomething
ReminderClass.ReminderDismiss Item.Subject
End Sub

class1 ==============================
Private WithEvents myolapp As Outlook.Application
Private WithEvents colReminders As Reminders
Sub Class_Terminate()
Call DeRefExplorers
End Sub
Public Sub init()
Set myolapp = Outlook.Application
Set colReminders = myolapp.Reminders
End Sub
Public Sub DeRefExplorers()
Set myolapp = Nothing
Set colReminders = Nothing
End Sub
Public Sub ReminderDismiss(ByVal sCaption As String)
If colReminders.Count 0 Then
For i = colReminders.Count To 1 Step -1
If Len(colReminders(i).Caption) 0 Then
If colReminders(i).Caption = sCaption Then
If colReminders(i).IsVisible = True Then
colReminders(i).Dismiss
End If
End If
End If
Next
End If
End Sub