This simple example shows how to create a PopupAlertCore and display an alert. 'add to declarations Private WithEvents Alert As PopupAlertCore Private Sub Alert_Click(ByVal hRef As String) Select Case hRef Case "newmail" 'display new mail actions End Select End Sub