小玩具

 昨天说的小玩具今天来发布了：
Jmouse LCD Toy - 点击这里下载
运行后可以检测你的 LCD (液晶显示器) 是否有坏点。
操作：ESC 键退出，任意键继续。
(*) Jmouse PCInfo Monitor 构架延迟或取消
(**)以下是该小玩具的源代码，公布此代码后，该玩具不会再更新。

Option Explicit
Dim dwStep As Integer

Private Sub Form_KeyUp() Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

On Error GoTo CheckEnd
    If KeyCode = 27 Then
        End
    Else
        Select Case dwStep
            Case 2
                Me.BackColor = RGB(255, 255, 255)
                Label1.ForeColor = RGB(0, 0, 0)
                Label1.Caption = "2.请查看屏幕范围内是否有非白色点存在"
            Case 3
                Me.BackColor = RGB(255, 0, 0)
                Label1.Caption = "3.请查看屏幕范围内是否有非红色点存在"
            Case 4
                Me.BackColor = RGB(0, 255, 0)
                Label1.Caption = "4.请查看屏幕范围内是否有非绿色点存在"
            Case 5
                Me.BackColor = RGB(0, 0, 255)
                Label1.Caption = "5.请查看屏幕范围内是否有非蓝色点存在"
            Case 6
                End
        End Select
        dwStep = dwStep + 1
    End If
CheckEnd:

End Sub

Private Sub Form_Load() Sub Form_Load()

On Error GoTo CheckEnd
    If InStr(1, Command, "love") <> 0 Then
        MsgBox "I love WYC!", vbInformation + vbSystemModal, "Love"
    End If '//这个彩蛋存在于我写的每一个程序里
    
    Label1.Left = (Screen.Width - Label1.Width) / 2
    Label1.Top = 0
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.BackColor = RGB(0, 0, 0)
    Label1.ForeColor = RGB(255, 255, 255)
    Label1.Caption = "1.请查看屏幕范围内是否有非黑色点存在"
    dwStep = 2
CheckEnd:

End Sub