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.
Public Class Form1 Dim BtnOne As Boolean = False Dim BtnTwo As Boolean = False Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long) Public Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click BtnOne = True End Sub Public Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click BtnTwo = True End Sub Public Sub MainFlow() If BtnOne = True Then lbl1.Text = "Are you a male?" BtnOne = False If BtnOne = True Then lbl1.Text = "Is your name Jane?" End If ElseIf BtnTwo = True Then lbl1.Text = "Alright, then you can't continue" Sleep(5000) End End If End Sub End Class
Join the community of 500,000 technology professionals and ask your questions.