Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub waitgifimg(ByVal wgname As String, ByVal onoff As Boolean, ByVal left As Integer, ByVal top As Integer) If onoff = True Then If htWaitGifs.ContainsKey(wgname) = True Then Cnt = htWaitGifs(wgname) htWaitGifs(wgname) = Cnt + 1 End If If htWaitGifs.ContainsKey(wgname) = False Then htWaitGifs.Add(wgname, 1) End If Dim gifpb As New PictureBox gifpb.Image = My.Resources.ajax_loader gifpb.SizeMode = PictureBoxSizeMode.AutoSize gifpb.Visible = True gifpb.Left = left - 10 gifpb.Top = top - 55 ' gifpb.Width = 17 ' gifpb.Height = 17 gifpb.BringToFront() gifpb.Name = wgname Me.Controls.Add(gifpb) End If If onoff = False Then If htWaitGifs.ContainsKey(wgname) = True Then htWaitGifs.Remove(wgname) '***-->Need way to dispose of picturebox with name "wgname" here End If End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.