Приложение должно формировать испытательный сигнал

Private Sub RISOVANIE()
   Dim X(0 To 10) As Double, Y(0 To 3) As Double
   Dim i As Integer, j As Integer, zvet As Long
   
   DrawWidth = 2: ScaleMode = 1: AutoRedraw = True: WindowState = 2
   Me.Show
 
   For i = 0 To 10
       X(i) = (Me.Width / 11) * i
   Next i
 
   For j = 0 To 3
       Y(j) = ((Me.Height) / 3) * j
   Next j
 
   For i = 0 To 9
      For j = 1 To 3
         Select Case i
            Case 0, 3, 6, 9: zvet = vbBlue
            Case 1, 2, 7, 8: zvet = vbGreen
            Case 4, 5: zvet = vbRed
         End Select
         Line (X(i) + (Me.Width / 11) / 2 + 100, Y(j) - _
              ((Me.Height) / 3) / 2)- _
              (X(i + 1) + (Me.Width / 11) / 2 - 100, Y(j) - _
              ((Me.Height) / 3) / 2), zvet
       Next j
    Next i
    
    For i = 1 To 10
       For j = 0 To 2
           Select Case i - 1
               Case 0, 3, 6, 9: zvet = vbBlue
               Case 1, 2, 7, 8: zvet = vbGreen
               Case 4, 5: zvet = vbRed
            End Select
            Line (X(i), Y(j) + 300)- _
                 (X(i), Y(j + 1) - 300), zvet
       Next j
    Next i
    
End Sub
 
Private Sub Form_Load()
   RISOVANIE
End Sub
 
Private Sub Form_DblClick()
   Unload Me
End Sub

'BGGBRRBGGB
'GGBRRBGGBR
'GBRRBGGBRR
Private Sub RISOVANIE()
   Dim X(0 To 10) As Double, Y(0 To 3) As Double
   Dim i As Integer, j As Integer, zvet As Long, zv As String
   
    DrawWidth = 2: ScaleMode = 1: AutoRedraw = True: WindowState = 2
   Me.Show
 
   For i = 0 To 10
       X(i) = (Me.Width / 11) * i
   Next i
 
   For j = 0 To 3
       Y(j) = ((Me.Height) / 3) * j
   Next j
 
   For i = 0 To 9
      For j = 1 To 3
      zv = Str(j) + Str(i)
         Select Case Val(zv)
            Case 10, 13, 16, 19, 22, 25, 28, 31, 34, 37: zvet = vbBlue
            Case 11, 12, 17, 18, 20, 21, 26, 27, 30, 35, 36: zvet = vbGreen
            Case 14, 15, 23, 24, 29, 32, 33, 38, 39: zvet = vbRed
         End Select
         Line (X(i) + (Me.Width / 11) / 2 + 100, Y(j) - _
              ((Me.Height) / 3) / 2)- _
              (X(i + 1) + (Me.Width / 11) / 2 - 100, Y(j) - _
              ((Me.Height) / 3) / 2), zvet
       Next j
    Next i
    
    For i = 1 To 10
       For j = 0 To 2
      zv = Str(j + 1) + Str(i - 1)
         Select Case Val(zv)
            Case 10, 13, 16, 19, 22, 25, 28, 31, 34, 37: zvet = vbBlue
            Case 11, 12, 17, 18, 20, 21, 26, 27, 30, 35, 36: zvet = vbGreen
            Case 14, 15, 23, 24, 29, 32, 33, 38, 39: zvet = vbRed
         End Select
            Line (X(i), Y(j) + 300)- _
                 (X(i), Y(j + 1) - 300), zvet
       Next j
    Next i
    
End Sub
 
Private Sub Form_Load()
   RISOVANIE
End Sub
 
Private Sub Form_DblClick()
   Unload Me
End Sub