mirror of
https://github.com/Histacom/Histacom.git
synced 2025-01-22 00:51:56 -05:00
12 lines
No EOL
398 B
VB.net
Executable file
12 lines
No EOL
398 B
VB.net
Executable file
Public Class _2002_virus_labels
|
|
Dim white As Boolean = True
|
|
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
|
If white Then
|
|
original.ForeColor = Color.Black
|
|
white = False
|
|
Else
|
|
original.ForeColor = Color.White
|
|
white = True
|
|
End If
|
|
End Sub
|
|
End Class |