Написать программу-аналог Nokia Monitor test для тестирования TFT мониторов

Dim X As Long, Y As Long, zv1 As Long, zv2 As Long
Dim a As Single, b As Single, c As Single, d As Single
Dim kolV As Integer, kolG As Integer
Dim screen As Integer
Private Sub RISOVANIE()
Cls
 For c = 1 To kolG Step 1
   For d = 1 To kolV Step 1
       X = a * c
       Y = b * d
       If (c + d) Mod 2 = 0 Then Line (X - a, Y - b)-(X, Y), zv1, BF Else Line (X - a, Y - b)-(X, Y), zv2, BF
    Next d
 Next c
End Sub
Private Sub Form_Load()
  AutoRedraw = True
  Timer1.Interval = 3000
  zv1 = vbWhite 'цвет первой клетки
  zv2 = vbBlack 'цвет второй клетки
  Shah
End Sub
Private Sub Vert()
  a = 100       'размер клеток по горизонтали
  b = 15000       'размер клеток по вертикали
  kolV = 1     'количество клеток по вертикали
  kolG = 200    'количество клеток по горизонтали
  RISOVANIE
End Sub
Private Sub Goriz()
  a = 16000       'размер клеток по горизонтали
  b = 100       'размер клеток по вертикали
  kolV = 200     'количество клеток по вертикали
  kolG = 1    'количество клеток по горизонтали
  RISOVANIE
End Sub
Private Sub Shah()
  a = 200       'размер клеток по горизонтали
  b = 200       'размер клеток по вертикали
  kolV = 50     'количество клеток по вертикали
  kolG = 100    'количество клеток по горизонтали
  RISOVANIE
End Sub
Private Sub Timer1_Timer()
screen = screen + 1
If screen > 3 Then screen = 1
Select Case screen
 Case 1: Vert
 Case 2: Goriz
 Case 3: Shah
End Select
End Sub
Private Sub Form_DblClick()
  Unload Me
End Sub