• Home
 · 
• Miscellaneous
 · 
• Time bleeps

Time bleeps

Time bleeps

Rate Time bleeps

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    End Sub
    'Code: 


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
        Beep()
    End Sub

    Private Overloads Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
        Label1.Text = TimeString
        Beep()
    End Sub
End Class