You can do this by building a form
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 10000
Timer1.Enabled = True
Me.ShowInTaskbar = False
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.ControlBox = False
Me.ShowIcon = False
Me.Size = New Size(200, 200)
Me.Text = ""
Dim wide As Integer = My.Computer.Screen.Bounds.Width
Dim high As Integer = My.Computer.Screen.Bounds.Height
Me.Location = New Point(wide - 200, high - 200) ' to put it in lower right corner
'set border style to fixed dialog
'set startup position to manual
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Close() ' will make the window only stay open for 10 seconds
End Sub