by m .akram (2 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Sun 8th April 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Time bleeps
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