Hello dotnet expert,

this method never exit.

It call frm.show without exiting the sub.

Any Idea ??

Thanks in advance !

Private Sub TimerReminder_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TimerReminder.Tick

If chkReminder.Checked = True Then

dsReminder.Clear()

dsReminder =
objAppointments.loadAppointmentsToBeReminder(System.DateTime.Today.ToString(
))

Dim SelRow As Integer

Dim SelCol As Integer

Try

For SelRow = dsReminder.Tables("Appointments").Rows.Count() - 1 To 0 Step -1

Dim frm As frmAlarm = New frmAlarm

frm.lblClient.Text =
dsReminder.Tables.Item(0).Rows(SelRow).Item("Client").ToString()

frm.lblDoctor.Text =
dsReminder.Tables.Item(0).Rows(SelRow).Item("Doctor").ToString()

frm.lblTel.Text =
dsReminder.Tables.Item(0).Rows(SelRow).Item("Tel").ToString()

frm.lblDate.Text =
dsReminder.Tables.Item(0).Rows(SelRow).Item("Dates").ToString()

frm.lblDescription.Text =
dsReminder.Tables.Item(0).Rows(SelRow).Item("Description").ToString()

frm.Show()

If SelRow = 0 Then

Exit Sub

End If

Next

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End If

End Sub