Sub Activity_Resume
Try
Dim in As Intent
Dim intentExtra As String
in = Activity.GetStartingIntent
If in.HasExtra("Notification_Tag") Then
intentExtra = in.GetExtra("Notification_Tag")
Select Case intentExtra
Case"Message"
DrawScreen("Messages")
Case"Notify"
DrawScreen("Notifications")
Case"Visitor"
DrawScreen("IconWho")
Case "Bid"
DrawScreen("SeeAllBids")
EndSelect
End If
Catch
Log (LastException)
End Try
EndSub