.NET (Core and Framework)

Private Sub ATU_RetrieveDone(ByVal e As AsyncUpdater.AsyncUpdaterEventArgs) Handles ATU.RetrieveDone
    Me.UpdateTimer.Enabled = False
    If e.Forums Is Nothing Then
        UpdateTopicListView(e.Results) ' Updates a list view and
                                       ' displays the popup.
    Else
        UpdateForumListView(e.Forums)
    End If
    Me.UpdateTimer.Enabled = True
End Sub

Private Sub UpdateTopicListView(ByVal Topics As ResultsCollection)
    For index As Integer = 0 To Topics.Count - 1
        ...
    Next
    Dim Message As String
    Message = "{0} new topic updates have been retrieved from {1}"
    Me.ShowPopup(String.Format(Message, Topics.Count, ClientSettings.WebURL))
End Sub


Private Sub ShowPopup(ByVal Message As String, Optional ByVal TimeOut As Integer = 0)
    Dim displaytime As Integer
    If TimeOut < 1000 Then
        displaytime = ClientSettings.PopupTime * 1000
    Else
        displaytime = TimeOut
    End If
    Dim PW As New PopupWindow
    PW.SetProperties(NewMessagePopup.Blend, Message, displaytime)
    PW.ShowPopup()
End Sub

Public Sub ShowPopup()
    Dim tbl As TaskBarLocation
    Dim workingArea As Rectangle
    Dim pt As Point

    pt = New Point
    pt.X = 0 : pt.Y = 0

    workingArea = SystemInformation.WorkingArea
    tbl = GetTaskBarLocation() ' Gets an enumerator
                               ' indicating the windows task bar
                               ' location.

    Select Case tbl
        Case TaskBarLocation.Bottom
            pt.X = workingArea.Right - Me.Width
            pt.Y = workingArea.Bottom - Me.Height
        Case TaskBarLocation.Left
            pt.X = workingArea.Left
            pt.Y = workingArea.Bottom - Me.Height
        Case TaskBarLocation.Right
            pt.X = workingArea.Right - Me.Width
            pt.Y = workingArea.Bottom - Me.Height
        Case TaskBarLocation.Top
            pt.X = workingArea.Right - Me.Width
            pt.Y = workingArea.Top
    End Select

    Me.Visible = False
    Me.Show()
    Me.Top = pt.Y
    Me.Left = pt.X
    Me.Visible = True
    tmrStartFade.Enabled = True ' Wait until elapsed to begin form fadeout
End Sub