API tools faq
paste
Advertisement
Larik

Untitled

Larik
May 22nd, 2019
168
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 107.49 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2.  
  3.     Dim p As Integer ' Позиция
  4.    Dim s As Integer ' Спавн (0 - террористы, 1 - контртеррористы)
  5.    Dim c As Integer ' Обзор
  6.  
  7.     Dim l As Integer ' Поворот влево
  8.    Dim r As Integer ' Поворот вправо
  9.  
  10.     Dim n As String ' Имя игрока
  11.  
  12.     Dim h As Integer ' Здоровье
  13.    Dim ar As Integer ' Броня
  14.  
  15.     Dim m As Integer ' Деньги
  16.  
  17.     Dim w As Integer ' Оружие
  18.    Dim am As Integer ' Боеприпасы
  19.  
  20.     Dim k As Integer ' Убийства
  21.    Dim d As Integer ' Смерть
  22.  
  23.     Dim se As Integer ' Секунды
  24.    Dim mi As Integer ' Минуты
  25.  
  26.     Dim ro As Integer ' Количество раундов
  27.  
  28.     Dim seb As Integer ' Секунды для закупки
  29.  
  30.     Dim sec As Integer ' Секунды для бомбы
  31.  
  32.     Dim re As Integer ' Результат раунда
  33.    Dim reg As Integer ' Результат игры
  34.  
  35.     Dim ra As New Random ' Рандомный выбор команд
  36.  
  37.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  38.  
  39.         Timer1.start()
  40.  
  41.         Me.KeyPreview = True
  42.  
  43.         PictureBox.Hide()
  44.  
  45.         PictureBox2.Hide()
  46.  
  47.         PictureBox3.Hide()
  48.  
  49.         Button1.Hide()
  50.         Button2.Hide()
  51.         Button3.Hide()
  52.         Button4.Hide()
  53.         Button5.Hide()
  54.         Button6.Hide()
  55.         Button7.Hide()
  56.         Button8.Hide()
  57.         Button9.Hide()
  58.         Button10.Hide()
  59.         Button11.Hide()
  60.         Button12.Hide()
  61.         Button13.Hide()
  62.         Button14.Hide()
  63.         Button15.Hide()
  64.         Button16.Hide()
  65.         Button17.Hide()
  66.         Button18.Hide()
  67.         Button19.Hide()
  68.         Button20.Hide()
  69.         Button21.Hide()
  70.         Button22.Hide()
  71.         Button23.Hide()
  72.         Button24.Hide()
  73.         Button25.Hide()
  74.         Button26.Hide()
  75.         Button27.Hide()
  76.         Button28.Hide()
  77.         Button29.Hide()
  78.         Button30.Hide()
  79.         Button31.Hide()
  80.         Button32.Hide()
  81.         Button33.Hide()
  82.         Button34.Hide()
  83.         Button35.Hide()
  84.         Button36.Hide()
  85.         Button37.Hide()
  86.         Button38.Hide()
  87.         Button39.Hide()
  88.         Button40.Hide()
  89.         Button41.Hide()
  90.         Button42.Hide()
  91.         Button43.Hide()
  92.         Button44.Hide()
  93.         Button45.Hide()
  94.         Button46.Hide()
  95.         Button47.Hide()
  96.         Button48.Hide()
  97.         Button49.Hide()
  98.         Button50.Hide()
  99.         Button51.Hide()
  100.         Button52.Hide()
  101.         Button53.Hide()
  102.  
  103.         Button54.Hide()
  104.         Button55.Hide()
  105.  
  106.         Button57.Hide()
  107.         Button58.Hide()
  108.         Button59.Hide()
  109.         Button60.Hide()
  110.         Button61.Hide()
  111.  
  112.         PictureBox4.Hide()
  113.  
  114.         Button62.Hide()
  115.  
  116.         Button63.Hide()
  117.  
  118.         Button64.Hide()
  119.  
  120.         Button65.Hide()
  121.  
  122.         Label1.Hide()
  123.  
  124.         TextBox1.Hide()
  125.  
  126.         CheckBox1.Hide()
  127.         CheckBox2.Hide()
  128.  
  129.         Button66.Hide()
  130.         TextBox2.Hide()
  131.  
  132.         TextBox4.Hide()
  133.         TextBox5.Hide()
  134.         TextBox6.Hide()
  135.         TextBox7.Hide()
  136.         TextBox8.Hide()
  137.         TextBox9.Hide()
  138.  
  139.     End Sub
  140.  
  141.     Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
  142.  
  143.         If e.KeyCode = Keys.K Then
  144.  
  145.             l = l + 1
  146.  
  147.             If l = 1 Then c = c + 1
  148.             If l = 2 Then c = c + 1
  149.             If l = 3 Then c = c + 1
  150.             If l = 4 Then c = c + 1 : l = 0 And c = 0
  151.  
  152.             If p = 0 Then
  153.  
  154.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0000
  155.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0001
  156.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0002
  157.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0003
  158.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0000 : c = 0
  159.  
  160.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0000
  161.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0003
  162.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0002
  163.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0001
  164.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0000 : c = 0
  165.  
  166.             End If
  167.  
  168.             If p = 1 Then
  169.  
  170.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0004
  171.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0005
  172.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0006
  173.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0007
  174.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0004 : c = 0
  175.  
  176.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0004
  177.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0007
  178.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0006
  179.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0005
  180.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0004 : c = 0
  181.  
  182.             End If
  183.  
  184.             If p = 2 Then
  185.  
  186.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0011
  187.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0008
  188.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0009
  189.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0010
  190.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0011 : c = 0
  191.  
  192.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0011
  193.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0010
  194.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0009
  195.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0008
  196.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0011 : c = 0
  197.  
  198.             End If
  199.  
  200.             If p = 3 Then
  201.  
  202.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0015
  203.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0012
  204.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0013
  205.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0014
  206.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0015 : c = 0
  207.  
  208.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0015
  209.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0014
  210.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0013
  211.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0012
  212.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0015 : c = 0
  213.  
  214.             End If
  215.  
  216.             If p = 4 Then
  217.  
  218.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0016
  219.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0017
  220.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0018
  221.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0019
  222.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0016 : c = 0
  223.  
  224.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0016
  225.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0019
  226.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0018
  227.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0017
  228.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0016 : c = 0
  229.  
  230.             End If
  231.  
  232.             If p = 5 Then
  233.  
  234.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0063
  235.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0060
  236.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0061
  237.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0062
  238.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0063 : c = 0
  239.  
  240.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0063
  241.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0062
  242.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0061
  243.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0060
  244.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0063 : c = 0
  245.  
  246.             End If
  247.  
  248.             If p = 6 Then
  249.  
  250.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0067
  251.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0064
  252.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0065
  253.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0066
  254.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0067 : c = 0
  255.  
  256.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0067
  257.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0066
  258.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0065
  259.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0064
  260.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0067 : c = 0
  261.  
  262.             End If
  263.  
  264.             If p = 7 Then
  265.  
  266.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0068
  267.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0069
  268.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0070
  269.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0071
  270.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0068 : c = 0
  271.  
  272.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0068
  273.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0071
  274.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0070
  275.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0069
  276.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0068 : c = 0
  277.  
  278.             End If
  279.  
  280.             If p = 8 Then
  281.  
  282.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0072
  283.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0073
  284.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0074
  285.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0075
  286.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0072 : c = 0
  287.  
  288.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0072
  289.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0075
  290.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0074
  291.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0073
  292.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0072 : c = 0
  293.  
  294.             End If
  295.  
  296.             If p = 9 Then
  297.  
  298.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0079
  299.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0076
  300.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0077
  301.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0078
  302.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0079 : c = 0
  303.  
  304.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0079
  305.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0078
  306.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0077
  307.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0076
  308.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0079 : c = 0
  309.  
  310.             End If
  311.  
  312.             If p = 10 Then
  313.  
  314.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0091
  315.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0088
  316.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0089
  317.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0090
  318.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0091 : c = 0
  319.  
  320.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0091
  321.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0090
  322.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0089
  323.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0088
  324.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0091 : c = 0
  325.  
  326.             End If
  327.  
  328.             If p = 11 Then
  329.  
  330.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0095
  331.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0092
  332.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0093
  333.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0094
  334.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0095 : c = 0
  335.  
  336.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0095
  337.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0094
  338.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0093
  339.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0092
  340.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0095 : c = 0
  341.  
  342.             End If
  343.  
  344.             If p = 12 Then
  345.  
  346.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0056
  347.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0057
  348.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0058
  349.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0059
  350.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0056 : c = 0
  351.  
  352.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0056
  353.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0059
  354.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0058
  355.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0057
  356.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0056 : c = 0
  357.  
  358.             End If
  359.  
  360.             If p = 13 Then
  361.  
  362.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0097
  363.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0098
  364.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0099
  365.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0100
  366.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0097 : c = 0
  367.  
  368.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0097
  369.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0100
  370.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0099
  371.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0098
  372.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0097 : c = 0
  373.  
  374.             End If
  375.  
  376.             If p = 14 Then
  377.  
  378.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0022
  379.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0023
  380.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0020
  381.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0021
  382.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0022 : c = 0
  383.  
  384.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0022
  385.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0021
  386.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0020
  387.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0023
  388.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0022 : c = 0
  389.  
  390.             End If
  391.  
  392.             If p = 15 Then
  393.  
  394.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0027
  395.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0024
  396.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0025
  397.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0026
  398.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0027 : c = 0
  399.  
  400.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0027
  401.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0026
  402.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0025
  403.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0024
  404.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0027 : c = 0
  405.  
  406.             End If
  407.  
  408.             If p = 16 Then
  409.  
  410.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0034
  411.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0035
  412.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0032
  413.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0033
  414.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0034 : c = 0
  415.  
  416.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0034
  417.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0033
  418.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0032
  419.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0035
  420.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0034 : c = 0
  421.  
  422.             End If
  423.  
  424.             If p = 17 Then
  425.  
  426.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0031
  427.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0028
  428.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0029
  429.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0030
  430.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0031 : c = 0
  431.  
  432.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0031
  433.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0030
  434.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0029
  435.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0028
  436.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0031 : c = 0
  437.  
  438.             End If
  439.  
  440.             If p = 18 Then
  441.  
  442.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0043
  443.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0040
  444.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0041
  445.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0042
  446.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0043 : c = 0
  447.  
  448.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0043
  449.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0042
  450.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0041
  451.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0040
  452.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0043 : c = 0
  453.  
  454.             End If
  455.  
  456.             If p = 19 Then
  457.  
  458.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0044
  459.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0045
  460.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0046
  461.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0047
  462.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0044 : c = 0
  463.  
  464.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0044
  465.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0047
  466.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0046
  467.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0045
  468.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0044 : c = 0
  469.  
  470.             End If
  471.  
  472.             If p = 20 Then
  473.  
  474.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0051
  475.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0048
  476.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0049
  477.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0050
  478.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0051 : c = 0
  479.  
  480.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0051
  481.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0050
  482.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0049
  483.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0048
  484.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0051 : c = 0
  485.  
  486.             End If
  487.  
  488.             If p = 21 Then
  489.  
  490.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0055
  491.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0052
  492.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0053
  493.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0054
  494.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0055 : c = 0
  495.  
  496.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0055
  497.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0054
  498.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0053
  499.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0052
  500.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0055 : c = 0
  501.  
  502.             End If
  503.  
  504.             If p = 22 Then
  505.  
  506.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0039
  507.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0036
  508.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0037
  509.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0038
  510.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0039 : c = 0
  511.  
  512.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0039
  513.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0038
  514.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0037
  515.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0036
  516.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0039 : c = 0
  517.  
  518.             End If
  519.  
  520.             If p = 23 Then
  521.  
  522.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0082
  523.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0083
  524.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0080
  525.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0081
  526.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0082 : c = 0
  527.  
  528.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0082
  529.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0081
  530.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0080
  531.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0083
  532.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0082 : c = 0
  533.  
  534.             End If
  535.  
  536.             If p = 24 Then
  537.  
  538.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0086
  539.                 If c = 1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0087
  540.                 If c = 2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0084
  541.                 If c = 3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0085
  542.                 If c = 4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0086 : c = 0
  543.  
  544.                 If c = 0 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0086
  545.                 If c = -1 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0085
  546.                 If c = -2 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0084
  547.                 If c = -3 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0087
  548.                 If c = -4 Then PictureBox.image = My.Resources.de_dust2_2x2_lite0086 : c = 0
  549.  
  550.             End If
  551.  
  552.             If p = 0 And c = 0 Then
  553.  
  554.                 Button1.Show()
  555.  
  556.                 Button1.Focus()
  557.  
  558.             Else
  559.  
  560.                 Button1.Hide()
  561.  
  562.             End If
  563.  
  564.             If p = 1 And (c = 2 Or c = -2) Then
  565.  
  566.                 Button2.Show()
  567.  
  568.                 Button2.Focus()
  569.  
  570.             Else
  571.  
  572.                 Button2.Hide()
  573.  
  574.             End If
  575.  
  576.             If p = 1 And (c = 1 Or c = -3) Then
  577.  
  578.                 Button3.Show()
  579.  
  580.                 Button3.Focus()
  581.  
  582.             Else
  583.  
  584.                 Button3.Hide()
  585.  
  586.             End If
  587.  
  588.             If p = 2 And (c = 3 Or c = -1) Then
  589.  
  590.                 Button4.Show()
  591.  
  592.                 Button4.Focus()
  593.  
  594.             Else
  595.  
  596.                 Button4.Hide()
  597.  
  598.             End If
  599.  
  600.             If p = 2 And (c = 1 Or c = -3) Then
  601.  
  602.                 Button5.Show()
  603.  
  604.                 Button5.Focus()
  605.  
  606.             Else
  607.  
  608.                 Button5.Hide()
  609.  
  610.             End If
  611.  
  612.             If p = 3 And (c = 3 Or c = -1) Then
  613.  
  614.                 Button6.Show()
  615.  
  616.                 Button6.Focus()
  617.  
  618.             Else
  619.  
  620.                 Button6.Hide()
  621.  
  622.             End If
  623.  
  624.             If p = 3 And c = 0 Then
  625.  
  626.                 Button7.Show()
  627.  
  628.                 Button7.Focus()
  629.  
  630.             Else
  631.  
  632.                 Button7.Hide()
  633.  
  634.             End If
  635.  
  636.             If p = 4 And (c = 2 Or c = -2) Then
  637.  
  638.                 Button8.Show()
  639.  
  640.                 Button8.Focus()
  641.  
  642.             Else
  643.  
  644.                 Button8.Hide()
  645.  
  646.             End If
  647.  
  648.             If p = 4 And (c = 1 Or c = -3) Then
  649.  
  650.                 Button9.Show()
  651.  
  652.                 Button9.Focus()
  653.  
  654.             Else
  655.  
  656.                 Button9.Hide()
  657.  
  658.             End If
  659.  
  660.             If p = 5 And (c = 3 Or c = -1) Then
  661.  
  662.                 Button10.Show()
  663.  
  664.                 Button10.Focus()
  665.  
  666.             Else
  667.  
  668.                 Button10.Hide()
  669.  
  670.             End If
  671.  
  672.             If p = 5 And (c = 1 Or c = -3) Then
  673.  
  674.                 Button11.Show()
  675.  
  676.                 Button11.Focus()
  677.  
  678.             Else
  679.  
  680.                 Button11.Hide()
  681.  
  682.             End If
  683.  
  684.             If p = 6 And (c = 3 Or c = -1) Then
  685.  
  686.                 Button12.Show()
  687.  
  688.                 Button12.Focus()
  689.  
  690.             Else
  691.  
  692.                 Button12.Hide()
  693.  
  694.             End If
  695.  
  696.             If p = 6 And c = 0 Then
  697.  
  698.                 Button13.Show()
  699.  
  700.                 Button13.Focus()
  701.  
  702.             Else
  703.  
  704.                 Button13.Hide()
  705.  
  706.             End If
  707.  
  708.             If p = 7 And (c = 2 Or c = -2) Then
  709.  
  710.                 Button14.Show()
  711.  
  712.                 Button14.Focus()
  713.  
  714.             Else
  715.  
  716.                 Button14.Hide()
  717.  
  718.             End If
  719.  
  720.             If p = 7 And c = 0 Then
  721.  
  722.                 Button15.Show()
  723.  
  724.                 Button15.Focus()
  725.  
  726.             Else
  727.  
  728.                 Button15.Hide()
  729.  
  730.             End If
  731.  
  732.             If p = 8 And (c = 2 Or c = -2) Then
  733.  
  734.                 Button16.Show()
  735.  
  736.                 Button16.Focus()
  737.  
  738.             Else
  739.  
  740.                 Button16.Hide()
  741.  
  742.             End If
  743.  
  744.             If p = 8 And (c = 1 Or c = -3) Then
  745.  
  746.                 Button17.Show()
  747.  
  748.                 Button17.Focus()
  749.  
  750.             Else
  751.  
  752.                 Button17.Hide()
  753.  
  754.             End If
  755.  
  756.             If p = 9 And (c = 3 Or c = -1) Then
  757.  
  758.                 Button18.Show()
  759.  
  760.                 Button18.Focus()
  761.  
  762.             Else
  763.  
  764.                 Button18.Hide()
  765.  
  766.             End If
  767.  
  768.             If p = 9 And (c = 1 Or c = -3) Then
  769.  
  770.                 Button19.Show()
  771.  
  772.                 Button19.Focus()
  773.  
  774.             Else
  775.  
  776.                 Button19.Hide()
  777.  
  778.             End If
  779.  
  780.             If p = 10 And (c = 3 Or c = -1) Then
  781.  
  782.                 Button20.Show()
  783.  
  784.                 Button20.Focus()
  785.  
  786.             Else
  787.  
  788.                 Button20.Hide()
  789.  
  790.             End If
  791.  
  792.             If p = 10 And (c = 2 Or c = -2) Then
  793.  
  794.                 Button21.Show()
  795.  
  796.                 Button21.Focus()
  797.  
  798.             Else
  799.  
  800.                 Button21.Hide()
  801.  
  802.             End If
  803.  
  804.             If p = 11 And c = 0 Then
  805.  
  806.                 Button22.Show()
  807.  
  808.                 Button22.Focus()
  809.  
  810.             Else
  811.  
  812.                 Button22.Hide()
  813.  
  814.             End If
  815.  
  816.             If p = 11 And (c = 3 Or c = -1) Then
  817.  
  818.                 Button23.Show()
  819.  
  820.                 Button23.Focus()
  821.  
  822.             Else
  823.  
  824.                 Button23.Hide()
  825.  
  826.             End If
  827.  
  828.             If p = 12 And (c = 1 Or c = -3) Then
  829.  
  830.                 Button24.Show()
  831.  
  832.                 Button24.Focus()
  833.  
  834.             Else
  835.  
  836.                 Button24.Hide()
  837.  
  838.             End If
  839.  
  840.             If p = 12 And (c = 3 Or c = -1) Then
  841.  
  842.                 Button25.Show()
  843.  
  844.                 Button25.Focus()
  845.  
  846.             Else
  847.  
  848.                 Button25.Hide()
  849.  
  850.             End If
  851.  
  852.             If p = 13 And (c = 1 Or c = -3) Then
  853.  
  854.                 Button26.Show()
  855.  
  856.                 Button26.Focus()
  857.  
  858.             Else
  859.  
  860.                 Button26.Hide()
  861.  
  862.             End If
  863.  
  864.             If p = 13 Then
  865.  
  866.                 Button27.Show()
  867.  
  868.                 Button27.Focus()
  869.  
  870.             Else
  871.  
  872.                 Button27.Hide()
  873.  
  874.             End If
  875.  
  876.             If p = 2 And (c = 2 Or c = -2) Then
  877.  
  878.                 Button28.Show()
  879.  
  880.                 Button28.Focus()
  881.  
  882.             Else
  883.  
  884.                 Button28.Hide()
  885.  
  886.             End If
  887.  
  888.             If p = 14 And c = 0 Then
  889.  
  890.                 Button29.Show()
  891.  
  892.                 Button29.Focus()
  893.  
  894.             Else
  895.  
  896.                 Button29.Hide()
  897.  
  898.             End If
  899.  
  900.             If p = 14 And (c = 1 Or c = -3) Then
  901.  
  902.                 Button30.Show()
  903.  
  904.                 Button30.Focus()
  905.  
  906.             Else
  907.  
  908.                 Button30.Hide()
  909.  
  910.             End If
  911.  
  912.             If p = 15 And (c = 3 Or c = -1) Then
  913.  
  914.                 Button31.Show()
  915.  
  916.                 Button31.Focus()
  917.  
  918.             Else
  919.  
  920.                 Button31.Hide()
  921.  
  922.             End If
  923.  
  924.             If p = 15 And (c = 1 Or c = -3) Then
  925.  
  926.                 Button32.Show()
  927.  
  928.                 Button32.Focus()
  929.  
  930.             Else
  931.  
  932.                 Button32.Hide()
  933.  
  934.             End If
  935.  
  936.             If p = 22 And (c = 3 Or c = -1) Then
  937.  
  938.                 Button33.Show()
  939.  
  940.                 Button33.Focus()
  941.  
  942.             Else
  943.  
  944.                 Button33.Hide()
  945.  
  946.             End If
  947.  
  948.             If p = 15 And c = 0 Then
  949.  
  950.                 Button34.Show()
  951.  
  952.                 Button34.Focus()
  953.  
  954.             Else
  955.  
  956.                 Button34.Hide()
  957.  
  958.             End If
  959.  
  960.             If p = 16 And (c = 2 Or c = -2) Then
  961.  
  962.                 Button35.Show()
  963.  
  964.                 Button35.Focus()
  965.  
  966.             Else
  967.  
  968.                 Button35.Hide()
  969.  
  970.             End If
  971.  
  972.             If p = 16 And c = 0 Then
  973.  
  974.                 Button36.Show()
  975.  
  976.                 Button36.Focus()
  977.  
  978.             Else
  979.  
  980.                 Button36.Hide()
  981.  
  982.             End If
  983.  
  984.             If p = 17 And (c = 2 Or c = -2) Then
  985.  
  986.                 Button37.Show()
  987.  
  988.                 Button37.Focus()
  989.  
  990.             Else
  991.  
  992.                 Button37.Hide()
  993.  
  994.             End If
  995.  
  996.             If p = 17 And (c = 3 Or c = -1) Then
  997.  
  998.                 Button38.Show()
  999.  
  1000.                 Button38.Focus()
  1001.  
  1002.             Else
  1003.  
  1004.                 Button38.Hide()
  1005.  
  1006.             End If
  1007.  
  1008.             If p = 3 And (c = 1 Or c = -3) Then
  1009.  
  1010.                 Button39.Show()
  1011.  
  1012.                 Button39.Focus()
  1013.  
  1014.             Else
  1015.  
  1016.                 Button39.Hide()
  1017.  
  1018.             End If
  1019.  
  1020.             If p = 16 And (c = 1 Or c = -3) Then
  1021.  
  1022.                 Button40.Show()
  1023.  
  1024.                 Button40.Focus()
  1025.  
  1026.             Else
  1027.  
  1028.                 Button40.Hide()
  1029.  
  1030.             End If
  1031.  
  1032.             If p = 18 And (c = 3 Or c = -1) Then
  1033.  
  1034.                 Button41.Show()
  1035.  
  1036.                 Button41.Focus()
  1037.  
  1038.             Else
  1039.  
  1040.                 Button41.Hide()
  1041.  
  1042.             End If
  1043.  
  1044.             If p = 18 And c = 0 Then
  1045.  
  1046.                 Button42.Show()
  1047.  
  1048.                 Button42.Focus()
  1049.  
  1050.             Else
  1051.  
  1052.                 Button42.Hide()
  1053.  
  1054.             End If
  1055.  
  1056.             If p = 19 And (c = 2 Or c = -2) Then
  1057.  
  1058.                 Button43.Show()
  1059.  
  1060.                 Button43.Focus()
  1061.  
  1062.             Else
  1063.  
  1064.                 Button43.Hide()
  1065.  
  1066.             End If
  1067.  
  1068.             If p = 19 And (c = 1 Or c = -3) Then
  1069.  
  1070.                 Button44.Show()
  1071.  
  1072.                 Button44.Focus()
  1073.  
  1074.             Else
  1075.  
  1076.                 Button44.Hide()
  1077.  
  1078.             End If
  1079.  
  1080.             If p = 20 And (c = 3 Or c = -1) Then
  1081.  
  1082.                 Button45.Show()
  1083.  
  1084.                 Button45.Focus()
  1085.  
  1086.             Else
  1087.  
  1088.                 Button45.Hide()
  1089.  
  1090.             End If
  1091.  
  1092.             If p = 20 And (c = 1 Or c = -3) Then
  1093.  
  1094.                 Button46.Show()
  1095.  
  1096.                 Button46.Focus()
  1097.  
  1098.             Else
  1099.  
  1100.                 Button46.Hide()
  1101.  
  1102.             End If
  1103.  
  1104.             If p = 21 And (c = 3 Or c = -1) Then
  1105.  
  1106.                 Button47.Show()
  1107.  
  1108.                 Button47.Focus()
  1109.  
  1110.             Else
  1111.  
  1112.                 Button47.Hide()
  1113.  
  1114.             End If
  1115.  
  1116.             If p = 21 And c = 0 Then
  1117.  
  1118.                 Button48.Show()
  1119.  
  1120.                 Button48.Focus()
  1121.  
  1122.             Else
  1123.  
  1124.                 Button48.Hide()
  1125.  
  1126.             End If
  1127.  
  1128.             If p = 12 And (c = 2 Or c = -2) Then
  1129.  
  1130.                 Button49.Show()
  1131.  
  1132.                 Button49.Focus()
  1133.  
  1134.             Else
  1135.  
  1136.                 Button49.Hide()
  1137.  
  1138.             End If
  1139.  
  1140.             If p = 9 And (c = 2 Or c = -2) Then
  1141.  
  1142.                 Button50.Show()
  1143.  
  1144.                 Button50.Focus()
  1145.  
  1146.             Else
  1147.  
  1148.                 Button50.Hide()
  1149.  
  1150.             End If
  1151.  
  1152.             If p = 23 And c = 0 Then
  1153.  
  1154.                 Button51.Show()
  1155.  
  1156.                 Button51.Focus()
  1157.  
  1158.             Else
  1159.  
  1160.                 Button51.Hide()
  1161.  
  1162.             End If
  1163.  
  1164.             If p = 23 And (c = 2 Or c = -2) Then
  1165.  
  1166.                 Button52.Show()
  1167.  
  1168.                 Button52.Focus()
  1169.  
  1170.             Else
  1171.  
  1172.                 Button52.Hide()
  1173.  
  1174.             End If
  1175.  
  1176.             If p = 24 And c = 0 Then
  1177.  
  1178.                 Button53.Show()
  1179.  
  1180.                 Button53.Focus()
  1181.  
  1182.             Else
  1183.  
  1184.                 Button53.Hide()
  1185.  
  1186.             End If
  1187.  
  1188.         End If
  1189.  
  1190.  
  1191.  
  1192.         If e.KeyCode = Keys.L Then
  1193.  
  1194.             r = r + 1
  1195.  
  1196.             If r = 1 Then c = c - 1
  1197.             If r = 2 Then c = c - 1
  1198.             If r = 3 Then c = c - 1
  1199.             If r = 4 Then c = c - 1 : r = 0 And c = 0
  1200.  
  1201.             If p = 0 Then
  1202.  
  1203.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0000
  1204.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0001
  1205.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0002
  1206.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0003
  1207.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0000 : c = 0
  1208.  
  1209.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0000
  1210.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0003
  1211.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0002
  1212.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0001
  1213.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0000 : c = 0
  1214.  
  1215.             End If
  1216.  
  1217.             If p = 1 Then
  1218.  
  1219.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0004
  1220.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0005
  1221.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0006
  1222.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0007
  1223.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0004 : c = 0
  1224.  
  1225.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0004
  1226.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0007
  1227.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0006
  1228.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0005
  1229.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0004 : c = 0
  1230.  
  1231.             End If
  1232.  
  1233.             If p = 2 Then
  1234.  
  1235.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0011
  1236.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0008
  1237.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0009
  1238.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0010
  1239.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0011 : c = 0
  1240.  
  1241.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0011
  1242.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0010
  1243.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0009
  1244.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0008
  1245.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0011 : c = 0
  1246.  
  1247.             End If
  1248.  
  1249.             If p = 3 Then
  1250.  
  1251.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0015
  1252.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0012
  1253.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0013
  1254.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0014
  1255.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0015 : c = 0
  1256.  
  1257.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0015
  1258.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0014
  1259.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0013
  1260.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0012
  1261.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0015 : c = 0
  1262.  
  1263.             End If
  1264.  
  1265.             If p = 4 Then
  1266.  
  1267.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0016
  1268.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0017
  1269.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0018
  1270.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0019
  1271.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0016 : c = 0
  1272.  
  1273.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0016
  1274.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0019
  1275.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0018
  1276.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0017
  1277.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0016 : c = 0
  1278.  
  1279.             End If
  1280.  
  1281.             If p = 5 Then
  1282.  
  1283.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0063
  1284.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0060
  1285.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0061
  1286.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0062
  1287.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0063 : c = 0
  1288.  
  1289.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0063
  1290.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0062
  1291.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0061
  1292.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0060
  1293.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0063 : c = 0
  1294.  
  1295.             End If
  1296.  
  1297.             If p = 6 Then
  1298.  
  1299.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0067
  1300.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0064
  1301.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0065
  1302.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0066
  1303.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0067 : c = 0
  1304.  
  1305.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0067
  1306.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0066
  1307.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0065
  1308.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0064
  1309.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0067 : c = 0
  1310.  
  1311.             End If
  1312.  
  1313.             If p = 7 Then
  1314.  
  1315.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0068
  1316.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0069
  1317.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0070
  1318.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0071
  1319.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0068 : c = 0
  1320.  
  1321.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0068
  1322.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0071
  1323.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0070
  1324.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0069
  1325.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0068 : c = 0
  1326.  
  1327.             End If
  1328.  
  1329.             If p = 8 Then
  1330.  
  1331.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0072
  1332.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0073
  1333.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0074
  1334.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0075
  1335.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0072 : c = 0
  1336.  
  1337.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0072
  1338.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0075
  1339.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0074
  1340.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0073
  1341.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0072 : c = 0
  1342.  
  1343.             End If
  1344.  
  1345.             If p = 9 Then
  1346.  
  1347.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0079
  1348.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0076
  1349.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0077
  1350.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0078
  1351.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0079 : c = 0
  1352.  
  1353.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0079
  1354.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0078
  1355.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0077
  1356.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0076
  1357.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0079 : c = 0
  1358.  
  1359.             End If
  1360.  
  1361.             If p = 10 Then
  1362.  
  1363.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0091
  1364.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0088
  1365.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0089
  1366.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0090
  1367.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0091 : c = 0
  1368.  
  1369.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0091
  1370.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0090
  1371.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0089
  1372.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0088
  1373.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0091 : c = 0
  1374.  
  1375.             End If
  1376.  
  1377.             If p = 11 Then
  1378.  
  1379.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0095
  1380.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0092
  1381.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0093
  1382.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0094
  1383.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0095 : c = 0
  1384.  
  1385.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0095
  1386.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0094
  1387.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0093
  1388.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0092
  1389.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0095 : c = 0
  1390.  
  1391.             End If
  1392.  
  1393.             If p = 12 Then
  1394.  
  1395.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0056
  1396.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0057
  1397.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0058
  1398.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0059
  1399.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0056 : c = 0
  1400.  
  1401.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0056
  1402.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0059
  1403.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0058
  1404.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0057
  1405.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0056 : c = 0
  1406.  
  1407.             End If
  1408.  
  1409.             If p = 13 Then
  1410.  
  1411.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0097
  1412.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0098
  1413.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0099
  1414.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0100
  1415.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0097 : c = 0
  1416.  
  1417.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0097
  1418.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0100
  1419.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0099
  1420.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0098
  1421.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0097 : c = 0
  1422.  
  1423.             End If
  1424.  
  1425.             If p = 14 Then
  1426.  
  1427.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0022
  1428.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0023
  1429.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0020
  1430.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0021
  1431.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0022 : c = 0
  1432.  
  1433.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0022
  1434.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0021
  1435.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0020
  1436.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0023
  1437.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0022 : c = 0
  1438.  
  1439.             End If
  1440.  
  1441.             If p = 15 Then
  1442.  
  1443.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0027
  1444.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0024
  1445.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0025
  1446.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0026
  1447.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0027 : c = 0
  1448.  
  1449.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0027
  1450.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0026
  1451.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0025
  1452.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0024
  1453.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0027 : c = 0
  1454.  
  1455.             End If
  1456.  
  1457.             If p = 16 Then
  1458.  
  1459.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0034
  1460.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0035
  1461.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0032
  1462.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0033
  1463.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0034 : c = 0
  1464.  
  1465.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0034
  1466.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0033
  1467.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0032
  1468.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0035
  1469.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0034 : c = 0
  1470.  
  1471.             End If
  1472.  
  1473.             If p = 17 Then
  1474.  
  1475.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0031
  1476.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0028
  1477.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0029
  1478.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0030
  1479.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0031 : c = 0
  1480.  
  1481.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0031
  1482.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0030
  1483.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0029
  1484.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0028
  1485.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0031 : c = 0
  1486.  
  1487.             End If
  1488.  
  1489.             If p = 18 Then
  1490.  
  1491.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0043
  1492.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0040
  1493.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0041
  1494.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0042
  1495.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0043 : c = 0
  1496.  
  1497.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0043
  1498.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0042
  1499.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0041
  1500.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0040
  1501.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0043 : c = 0
  1502.  
  1503.             End If
  1504.  
  1505.             If p = 19 Then
  1506.  
  1507.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0044
  1508.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0045
  1509.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0046
  1510.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0047
  1511.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0044 : c = 0
  1512.  
  1513.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0044
  1514.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0047
  1515.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0046
  1516.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0045
  1517.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0044 : c = 0
  1518.  
  1519.             End If
  1520.  
  1521.             If p = 20 Then
  1522.  
  1523.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0051
  1524.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0048
  1525.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0049
  1526.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0050
  1527.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0051 : c = 0
  1528.  
  1529.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0051
  1530.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0050
  1531.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0049
  1532.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0048
  1533.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0051 : c = 0
  1534.  
  1535.             End If
  1536.  
  1537.             If p = 21 Then
  1538.  
  1539.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0055
  1540.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0052
  1541.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0053
  1542.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0054
  1543.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0055 : c = 0
  1544.  
  1545.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0055
  1546.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0054
  1547.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0053
  1548.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0052
  1549.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0055 : c = 0
  1550.  
  1551.             End If
  1552.  
  1553.             If p = 22 Then
  1554.  
  1555.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0039
  1556.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0036
  1557.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0037
  1558.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0038
  1559.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0039 : c = 0
  1560.  
  1561.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0039
  1562.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0038
  1563.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0037
  1564.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0036
  1565.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0039 : c = 0
  1566.  
  1567.             End If
  1568.  
  1569.             If p = 23 Then
  1570.  
  1571.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0082
  1572.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0083
  1573.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0080
  1574.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0081
  1575.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0082 : c = 0
  1576.  
  1577.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0082
  1578.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0081
  1579.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0080
  1580.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0083
  1581.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0082 : c = 0
  1582.  
  1583.             End If
  1584.  
  1585.             If p = 24 Then
  1586.  
  1587.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0086
  1588.                 If c = 1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0087
  1589.                 If c = 2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0084
  1590.                 If c = 3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0085
  1591.                 If c = 4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0086 : c = 0
  1592.  
  1593.                 If c = 0 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0086
  1594.                 If c = -1 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0085
  1595.                 If c = -2 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0084
  1596.                 If c = -3 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0087
  1597.                 If c = -4 Then PictureBox.Image = My.Resources.de_dust2_2x2_lite0086 : c = 0
  1598.  
  1599.             End If
  1600.  
  1601.             If p = 0 And c = 0 Then
  1602.  
  1603.                 Button1.Show()
  1604.  
  1605.                 Button1.Focus()
  1606.  
  1607.             Else
  1608.  
  1609.                 Button1.Hide()
  1610.  
  1611.             End If
  1612.  
  1613.             If p = 1 And (c = 2 Or c = -2) Then
  1614.  
  1615.                 Button2.Show()
  1616.  
  1617.                 Button2.Focus()
  1618.  
  1619.             Else
  1620.  
  1621.                 Button2.Hide()
  1622.  
  1623.             End If
  1624.  
  1625.             If p = 1 And (c = 1 Or c = -3) Then
  1626.  
  1627.                 Button3.Show()
  1628.  
  1629.                 Button3.Focus()
  1630.  
  1631.             Else
  1632.  
  1633.                 Button3.Hide()
  1634.  
  1635.             End If
  1636.  
  1637.             If p = 2 And (c = 3 Or c = -1) Then
  1638.  
  1639.                 Button4.Show()
  1640.  
  1641.                 Button4.Focus()
  1642.  
  1643.             Else
  1644.  
  1645.                 Button4.Hide()
  1646.  
  1647.             End If
  1648.  
  1649.             If p = 2 And (c = 1 Or c = -3) Then
  1650.  
  1651.                 Button5.Show()
  1652.  
  1653.                 Button5.Focus()
  1654.  
  1655.             Else
  1656.  
  1657.                 Button5.Hide()
  1658.  
  1659.             End If
  1660.  
  1661.             If p = 3 And (c = 3 Or c = -1) Then
  1662.  
  1663.                 Button6.Show()
  1664.  
  1665.                 Button6.Focus()
  1666.  
  1667.             Else
  1668.  
  1669.                 Button6.Hide()
  1670.  
  1671.             End If
  1672.  
  1673.             If p = 3 And c = 0 Then
  1674.  
  1675.                 Button7.Show()
  1676.  
  1677.                 Button7.Focus()
  1678.  
  1679.             Else
  1680.  
  1681.                 Button7.Hide()
  1682.  
  1683.             End If
  1684.  
  1685.             If p = 4 And (c = 2 Or c = -2) Then
  1686.  
  1687.                 Button8.Show()
  1688.  
  1689.                 Button8.Focus()
  1690.  
  1691.             Else
  1692.  
  1693.                 Button8.Hide()
  1694.  
  1695.             End If
  1696.  
  1697.             If p = 4 And (c = 1 Or c = -3) Then
  1698.  
  1699.                 Button9.Show()
  1700.  
  1701.                 Button9.Focus()
  1702.  
  1703.             Else
  1704.  
  1705.                 Button9.Hide()
  1706.  
  1707.             End If
  1708.  
  1709.             If p = 5 And (c = 3 Or c = -1) Then
  1710.  
  1711.                 Button10.Show()
  1712.  
  1713.                 Button10.Focus()
  1714.  
  1715.             Else
  1716.  
  1717.                 Button10.Hide()
  1718.  
  1719.             End If
  1720.  
  1721.             If p = 5 And (c = 1 Or c = -3) Then
  1722.  
  1723.                 Button11.Show()
  1724.  
  1725.                 Button11.Focus()
  1726.  
  1727.             Else
  1728.  
  1729.                 Button11.Hide()
  1730.  
  1731.             End If
  1732.  
  1733.             If p = 6 And (c = 3 Or c = -1) Then
  1734.  
  1735.                 Button12.Show()
  1736.  
  1737.                 Button12.Focus()
  1738.  
  1739.             Else
  1740.  
  1741.                 Button12.Hide()
  1742.  
  1743.             End If
  1744.  
  1745.             If p = 6 And c = 0 Then
  1746.  
  1747.                 Button13.Show()
  1748.  
  1749.                 Button13.Focus()
  1750.  
  1751.             Else
  1752.  
  1753.                 Button13.Hide()
  1754.  
  1755.             End If
  1756.  
  1757.             If p = 7 And (c = 2 Or c = -2) Then
  1758.  
  1759.                 Button14.Show()
  1760.  
  1761.                 Button14.Focus()
  1762.  
  1763.             Else
  1764.  
  1765.                 Button14.Hide()
  1766.  
  1767.             End If
  1768.  
  1769.             If p = 7 And c = 0 Then
  1770.  
  1771.                 Button15.Show()
  1772.  
  1773.                 Button15.Focus()
  1774.  
  1775.             Else
  1776.  
  1777.                 Button15.Hide()
  1778.  
  1779.             End If
  1780.  
  1781.             If p = 8 And (c = 2 Or c = -2) Then
  1782.  
  1783.                 Button16.Show()
  1784.  
  1785.                 Button16.Focus()
  1786.  
  1787.             Else
  1788.  
  1789.                 Button16.Hide()
  1790.  
  1791.             End If
  1792.  
  1793.             If p = 8 And (c = 1 Or c = -3) Then
  1794.  
  1795.                 Button17.Show()
  1796.  
  1797.                 Button17.Focus()
  1798.  
  1799.             Else
  1800.  
  1801.                 Button17.Hide()
  1802.  
  1803.             End If
  1804.  
  1805.             If p = 9 And (c = 3 Or c = -1) Then
  1806.  
  1807.                 Button18.Show()
  1808.  
  1809.                 Button18.Focus()
  1810.  
  1811.             Else
  1812.  
  1813.                 Button18.Hide()
  1814.  
  1815.             End If
  1816.  
  1817.             If p = 9 And (c = 1 Or c = -3) Then
  1818.  
  1819.                 Button19.Show()
  1820.  
  1821.                 Button19.Focus()
  1822.  
  1823.             Else
  1824.  
  1825.                 Button19.Hide()
  1826.  
  1827.             End If
  1828.  
  1829.             If p = 10 And (c = 3 Or c = -1) Then
  1830.  
  1831.                 Button20.Show()
  1832.  
  1833.                 Button20.Focus()
  1834.  
  1835.             Else
  1836.  
  1837.                 Button20.Hide()
  1838.  
  1839.             End If
  1840.  
  1841.             If p = 10 And (c = 2 Or c = -2) Then
  1842.  
  1843.                 Button21.Show()
  1844.  
  1845.                 Button21.Focus()
  1846.  
  1847.             Else
  1848.  
  1849.                 Button21.Hide()
  1850.  
  1851.             End If
  1852.  
  1853.             If p = 11 And c = 0 Then
  1854.  
  1855.                 Button22.Show()
  1856.  
  1857.                 Button22.Focus()
  1858.  
  1859.             Else
  1860.  
  1861.                 Button22.Hide()
  1862.  
  1863.             End If
  1864.  
  1865.             If p = 11 And (c = 3 Or c = -1) Then
  1866.  
  1867.                 Button23.Show()
  1868.  
  1869.                 Button23.Focus()
  1870.  
  1871.             Else
  1872.  
  1873.                 Button23.Hide()
  1874.  
  1875.             End If
  1876.  
  1877.             If p = 12 And (c = 1 Or c = -3) Then
  1878.  
  1879.                 Button24.Show()
  1880.  
  1881.                 Button24.Focus()
  1882.  
  1883.             Else
  1884.  
  1885.                 Button24.Hide()
  1886.  
  1887.             End If
  1888.  
  1889.             If p = 12 And (c = 3 Or c = -1) Then
  1890.  
  1891.                 Button25.Show()
  1892.  
  1893.                 Button25.Focus()
  1894.  
  1895.             Else
  1896.  
  1897.                 Button25.Hide()
  1898.  
  1899.             End If
  1900.  
  1901.             If p = 13 And (c = 1 Or c = -3) Then
  1902.  
  1903.                 Button26.Show()
  1904.  
  1905.                 Button26.Focus()
  1906.  
  1907.             Else
  1908.  
  1909.                 Button26.Hide()
  1910.  
  1911.             End If
  1912.  
  1913.             If p = 13 Then
  1914.  
  1915.                 Button27.Show()
  1916.  
  1917.                 Button27.Focus()
  1918.  
  1919.             Else
  1920.  
  1921.                 Button27.Hide()
  1922.  
  1923.             End If
  1924.  
  1925.             If p = 2 And (c = 2 Or c = -2) Then
  1926.  
  1927.                 Button28.Show()
  1928.  
  1929.                 Button28.Focus()
  1930.  
  1931.             Else
  1932.  
  1933.                 Button28.Hide()
  1934.  
  1935.             End If
  1936.  
  1937.             If p = 14 And c = 0 Then
  1938.  
  1939.                 Button29.Show()
  1940.  
  1941.                 Button29.Focus()
  1942.  
  1943.             Else
  1944.  
  1945.                 Button29.Hide()
  1946.  
  1947.             End If
  1948.  
  1949.             If p = 14 And (c = 1 Or c = -3) Then
  1950.  
  1951.                 Button30.Show()
  1952.  
  1953.                 Button30.Focus()
  1954.  
  1955.             Else
  1956.  
  1957.                 Button30.Hide()
  1958.  
  1959.             End If
  1960.  
  1961.             If p = 15 And (c = 3 Or c = -1) Then
  1962.  
  1963.                 Button31.Show()
  1964.  
  1965.                 Button31.Focus()
  1966.  
  1967.             Else
  1968.  
  1969.                 Button31.Hide()
  1970.  
  1971.             End If
  1972.  
  1973.             If p = 15 And (c = 1 Or c = -3) Then
  1974.  
  1975.                 Button32.Show()
  1976.  
  1977.                 Button32.Focus()
  1978.  
  1979.             Else
  1980.  
  1981.                 Button32.Hide()
  1982.  
  1983.             End If
  1984.  
  1985.             If p = 22 And (c = 3 Or c = -1) Then
  1986.  
  1987.                 Button33.Show()
  1988.  
  1989.                 Button33.Focus()
  1990.  
  1991.             Else
  1992.  
  1993.                 Button33.Hide()
  1994.  
  1995.             End If
  1996.  
  1997.             If p = 15 And c = 0 Then
  1998.  
  1999.                 Button34.Show()
  2000.  
  2001.                 Button34.Focus()
  2002.  
  2003.             Else
  2004.  
  2005.                 Button34.Hide()
  2006.  
  2007.             End If
  2008.  
  2009.             If p = 16 And (c = 2 Or c = -2) Then
  2010.  
  2011.                 Button35.Show()
  2012.  
  2013.                 Button35.Focus()
  2014.  
  2015.             Else
  2016.  
  2017.                 Button35.Hide()
  2018.  
  2019.             End If
  2020.  
  2021.             If p = 16 And c = 0 Then
  2022.  
  2023.                 Button36.Show()
  2024.  
  2025.                 Button36.Focus()
  2026.  
  2027.             Else
  2028.  
  2029.                 Button36.Hide()
  2030.  
  2031.             End If
  2032.  
  2033.             If p = 17 And (c = 2 Or c = -2) Then
  2034.  
  2035.                 Button37.Show()
  2036.  
  2037.                 Button37.Focus()
  2038.  
  2039.             Else
  2040.  
  2041.                 Button37.Hide()
  2042.  
  2043.             End If
  2044.  
  2045.             If p = 17 And (c = 3 Or c = -1) Then
  2046.  
  2047.                 Button38.Show()
  2048.  
  2049.                 Button38.Focus()
  2050.  
  2051.             Else
  2052.  
  2053.                 Button38.Hide()
  2054.  
  2055.             End If
  2056.  
  2057.             If p = 3 And (c = 1 Or c = -3) Then
  2058.  
  2059.                 Button39.Show()
  2060.  
  2061.                 Button39.Focus()
  2062.  
  2063.             Else
  2064.  
  2065.                 Button39.Hide()
  2066.  
  2067.             End If
  2068.  
  2069.             If p = 16 And (c = 1 Or c = -3) Then
  2070.  
  2071.                 Button40.Show()
  2072.  
  2073.                 Button40.Focus()
  2074.  
  2075.             Else
  2076.  
  2077.                 Button40.Hide()
  2078.  
  2079.             End If
  2080.  
  2081.             If p = 18 And (c = 3 Or c = -1) Then
  2082.  
  2083.                 Button41.Show()
  2084.  
  2085.                 Button41.Focus()
  2086.  
  2087.             Else
  2088.  
  2089.                 Button41.Hide()
  2090.  
  2091.             End If
  2092.  
  2093.             If p = 18 And c = 0 Then
  2094.  
  2095.                 Button42.Show()
  2096.  
  2097.                 Button42.Focus()
  2098.  
  2099.             Else
  2100.  
  2101.                 Button42.Hide()
  2102.  
  2103.             End If
  2104.  
  2105.             If p = 19 And (c = 2 Or c = -2) Then
  2106.  
  2107.                 Button43.Show()
  2108.  
  2109.                 Button43.Focus()
  2110.  
  2111.             Else
  2112.  
  2113.                 Button43.Hide()
  2114.  
  2115.             End If
  2116.  
  2117.             If p = 19 And (c = 1 Or c = -3) Then
  2118.  
  2119.                 Button44.Show()
  2120.  
  2121.                 Button44.Focus()
  2122.  
  2123.             Else
  2124.  
  2125.                 Button44.Hide()
  2126.  
  2127.             End If
  2128.  
  2129.             If p = 20 And (c = 3 Or c = -1) Then
  2130.  
  2131.                 Button45.Show()
  2132.  
  2133.                 Button45.Focus()
  2134.  
  2135.             Else
  2136.  
  2137.                 Button45.Hide()
  2138.  
  2139.             End If
  2140.  
  2141.             If p = 20 And (c = 1 Or c = -3) Then
  2142.  
  2143.                 Button46.Show()
  2144.  
  2145.                 Button46.Focus()
  2146.  
  2147.             Else
  2148.  
  2149.                 Button46.Hide()
  2150.  
  2151.             End If
  2152.  
  2153.             If p = 21 And (c = 3 Or c = -1) Then
  2154.  
  2155.                 Button47.Show()
  2156.  
  2157.                 Button47.Focus()
  2158.  
  2159.             Else
  2160.  
  2161.                 Button47.Hide()
  2162.  
  2163.             End If
  2164.  
  2165.             If p = 21 And c = 0 Then
  2166.  
  2167.                 Button48.Show()
  2168.  
  2169.                 Button48.Focus()
  2170.  
  2171.             Else
  2172.  
  2173.                 Button48.Hide()
  2174.  
  2175.             End If
  2176.  
  2177.             If p = 12 And (c = 2 Or c = -2) Then
  2178.  
  2179.                 Button49.Show()
  2180.  
  2181.                 Button49.Focus()
  2182.  
  2183.             Else
  2184.  
  2185.                 Button49.Hide()
  2186.  
  2187.             End If
  2188.  
  2189.             If p = 9 And (c = 2 Or c = -2) Then
  2190.  
  2191.                 Button50.Show()
  2192.  
  2193.                 Button50.Focus()
  2194.  
  2195.             Else
  2196.  
  2197.                 Button50.Hide()
  2198.  
  2199.             End If
  2200.  
  2201.             If p = 23 And c = 0 Then
  2202.  
  2203.                 Button51.Show()
  2204.  
  2205.                 Button51.Focus()
  2206.  
  2207.             Else
  2208.  
  2209.                 Button51.Hide()
  2210.  
  2211.             End If
  2212.  
  2213.             If p = 23 And (c = 2 Or c = -2) Then
  2214.  
  2215.                 Button52.Show()
  2216.  
  2217.                 Button52.Focus()
  2218.  
  2219.             Else
  2220.  
  2221.                 Button52.Hide()
  2222.  
  2223.             End If
  2224.  
  2225.             If p = 24 And c = 0 Then
  2226.  
  2227.                 Button53.Show()
  2228.  
  2229.                 Button53.Focus()
  2230.  
  2231.             Else
  2232.  
  2233.                 Button53.Hide()
  2234.  
  2235.             End If
  2236.  
  2237.         End If
  2238.  
  2239.     End Sub
  2240.  
  2241.     Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2242.  
  2243.         p = 1
  2244.  
  2245.         c = 0
  2246.  
  2247.         PictureBox.image = My.Resources.de_dust2_2x2_lite0004
  2248.  
  2249.         Button1.Hide()
  2250.  
  2251.     End Sub
  2252.  
  2253.     Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2254.  
  2255.         p = 0
  2256.  
  2257.         c = 2
  2258.  
  2259.         PictureBox.image = My.Resources.de_dust2_2x2_lite0002
  2260.  
  2261.         Button2.Hide()
  2262.  
  2263.     End Sub
  2264.  
  2265.     Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2266.  
  2267.         p = 2
  2268.  
  2269.         c = 1
  2270.  
  2271.         PictureBox.image = My.Resources.de_dust2_2x2_lite0008
  2272.  
  2273.         Button3.Hide()
  2274.  
  2275.         Button5.Show()
  2276.  
  2277.         Button5.Focus()
  2278.  
  2279.     End Sub
  2280.  
  2281.     Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  2282.  
  2283.         p = 1
  2284.  
  2285.         c = 3
  2286.  
  2287.         PictureBox.image = My.Resources.de_dust2_2x2_lite0007
  2288.  
  2289.         button4.Hide()
  2290.  
  2291.     End Sub
  2292.  
  2293.     Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  2294.  
  2295.         p = 3
  2296.  
  2297.         c = 1
  2298.  
  2299.         PictureBox.image = My.Resources.de_dust2_2x2_lite0012
  2300.  
  2301.         button5.Hide()
  2302.  
  2303.         Button39.Show()
  2304.  
  2305.         Button39.Focus()
  2306.  
  2307.     End Sub
  2308.  
  2309.     Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  2310.  
  2311.         p = 2
  2312.  
  2313.         c = 3
  2314.  
  2315.         PictureBox.image = My.Resources.de_dust2_2x2_lite0010
  2316.  
  2317.         Button6.Hide()
  2318.  
  2319.         Button4.Show()
  2320.  
  2321.         Button4.Focus()
  2322.  
  2323.     End Sub
  2324.  
  2325.     Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  2326.  
  2327.         p = 4
  2328.  
  2329.         c = 0
  2330.  
  2331.         PictureBox.image = My.Resources.de_dust2_2x2_lite0016
  2332.  
  2333.         button7.Hide()
  2334.  
  2335.     End Sub
  2336.  
  2337.     Private Sub button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  2338.  
  2339.         p = 3
  2340.  
  2341.         c = 2
  2342.  
  2343.         PictureBox.image = My.Resources.de_dust2_2x2_lite0013
  2344.  
  2345.         button8.Hide()
  2346.  
  2347.     End Sub
  2348.  
  2349.     Private Sub button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
  2350.  
  2351.         p = 5
  2352.  
  2353.         c = 1
  2354.  
  2355.         PictureBox.image = My.Resources.de_dust2_2x2_lite0060
  2356.  
  2357.         Button9.Hide()
  2358.  
  2359.         Button11.Show()
  2360.  
  2361.         Button11.Focus()
  2362.  
  2363.     End Sub
  2364.  
  2365.     Private Sub button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
  2366.  
  2367.         p = 4
  2368.  
  2369.         c = 3
  2370.  
  2371.         PictureBox.image = My.Resources.de_dust2_2x2_lite0019
  2372.  
  2373.         button10.Hide()
  2374.  
  2375.     End Sub
  2376.  
  2377.     Private Sub button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
  2378.  
  2379.         p = 6
  2380.  
  2381.         c = 1
  2382.  
  2383.         PictureBox.image = My.Resources.de_dust2_2x2_lite0064
  2384.  
  2385.         button11.Hide()
  2386.  
  2387.     End Sub
  2388.  
  2389.     Private Sub button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
  2390.  
  2391.         p = 5
  2392.  
  2393.         c = 3
  2394.  
  2395.         PictureBox.image = My.Resources.de_dust2_2x2_lite0062
  2396.  
  2397.         Button12.Hide()
  2398.  
  2399.         Button10.Show()
  2400.  
  2401.         Button10.Focus()
  2402.  
  2403.     End Sub
  2404.  
  2405.     Private Sub button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
  2406.  
  2407.         p = 7
  2408.  
  2409.         c = 0
  2410.  
  2411.         PictureBox.image = My.Resources.de_dust2_2x2_lite0068
  2412.  
  2413.         Button13.Hide()
  2414.  
  2415.         Button15.Show()
  2416.  
  2417.         Button15.Focus()
  2418.  
  2419.     End Sub
  2420.  
  2421.     Private Sub button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
  2422.  
  2423.         p = 6
  2424.  
  2425.         c = 2
  2426.  
  2427.         PictureBox.image = My.Resources.de_dust2_2x2_lite0065
  2428.  
  2429.         button14.Hide()
  2430.  
  2431.     End Sub
  2432.  
  2433.     Private Sub button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
  2434.  
  2435.         p = 8
  2436.  
  2437.         c = 0
  2438.  
  2439.         PictureBox.image = My.Resources.de_dust2_2x2_lite0072
  2440.  
  2441.         button15.Hide()
  2442.  
  2443.     End Sub
  2444.  
  2445.     Private Sub button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
  2446.  
  2447.         p = 7
  2448.  
  2449.         c = 2
  2450.  
  2451.         PictureBox.image = My.Resources.de_dust2_2x2_lite0070
  2452.  
  2453.         Button16.Hide()
  2454.  
  2455.         Button14.Show()
  2456.  
  2457.         Button14.Focus()
  2458.  
  2459.     End Sub
  2460.  
  2461.     Private Sub button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
  2462.  
  2463.         p = 9
  2464.  
  2465.         c = 1
  2466.  
  2467.         PictureBox.image = My.Resources.de_dust2_2x2_lite0076
  2468.  
  2469.         Button17.Hide()
  2470.  
  2471.         Button19.Show()
  2472.  
  2473.         Button19.Focus()
  2474.  
  2475.     End Sub
  2476.  
  2477.     Private Sub button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
  2478.  
  2479.         p = 8
  2480.  
  2481.         c = 3
  2482.  
  2483.         PictureBox.image = My.Resources.de_dust2_2x2_lite0075
  2484.  
  2485.         button18.Hide()
  2486.  
  2487.     End Sub
  2488.  
  2489.     Private Sub button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
  2490.  
  2491.         p = 10
  2492.  
  2493.         c = 1
  2494.  
  2495.         PictureBox.image = My.Resources.de_dust2_2x2_lite0088
  2496.  
  2497.         button19.Hide()
  2498.  
  2499.     End Sub
  2500.  
  2501.     Private Sub button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
  2502.  
  2503.         p = 9
  2504.  
  2505.         c = 3
  2506.  
  2507.         PictureBox.image = My.Resources.de_dust2_2x2_lite0078
  2508.  
  2509.         Button20.Hide()
  2510.  
  2511.         Button18.Show()
  2512.  
  2513.         Button18.Focus()
  2514.  
  2515.     End Sub
  2516.  
  2517.     Private Sub button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
  2518.  
  2519.         p = 11
  2520.  
  2521.         c = 2
  2522.  
  2523.         PictureBox.image = My.Resources.de_dust2_2x2_lite0093
  2524.  
  2525.         button21.Hide()
  2526.  
  2527.     End Sub
  2528.  
  2529.     Private Sub button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
  2530.  
  2531.         p = 10
  2532.  
  2533.         c = 0
  2534.  
  2535.         PictureBox.image = My.Resources.de_dust2_2x2_lite0091
  2536.  
  2537.         button22.Hide()
  2538.  
  2539.     End Sub
  2540.  
  2541.     Private Sub button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
  2542.  
  2543.         p = 12
  2544.  
  2545.         c = 3
  2546.  
  2547.         PictureBox.image = My.Resources.de_dust2_2x2_lite0059
  2548.  
  2549.         Button23.Hide()
  2550.  
  2551.         Button25.Show()
  2552.  
  2553.         Button25.Focus()
  2554.  
  2555.     End Sub
  2556.  
  2557.     Private Sub button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
  2558.  
  2559.         p = 11
  2560.  
  2561.         c = 1
  2562.  
  2563.         PictureBox.image = My.Resources.de_dust2_2x2_lite0092
  2564.  
  2565.         button24.Hide()
  2566.  
  2567.     End Sub
  2568.  
  2569.     Private Sub button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
  2570.  
  2571.         p = 13
  2572.  
  2573.         c = 3
  2574.  
  2575.         PictureBox.image = My.Resources.de_dust2_2x2_lite0100
  2576.  
  2577.         Button25.Hide()
  2578.  
  2579.         Button27.Show()
  2580.  
  2581.         Button27.Focus()
  2582.  
  2583.     End Sub
  2584.  
  2585.     Private Sub button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
  2586.  
  2587.         p = 12
  2588.  
  2589.         c = 1
  2590.  
  2591.         PictureBox.image = My.Resources.de_dust2_2x2_lite0057
  2592.  
  2593.         button26.Hide()
  2594.  
  2595.     End Sub
  2596.  
  2597.     Private Sub button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
  2598.  
  2599.         PictureBox.image = My.Resources.de_dust2_2x2_lite0096
  2600.  
  2601.         button27.Hide()
  2602.  
  2603.     End Sub
  2604.  
  2605.     Private Sub button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
  2606.  
  2607.         p = 14
  2608.  
  2609.         c = 2
  2610.  
  2611.         PictureBox.image = My.Resources.de_dust2_2x2_lite0020
  2612.  
  2613.         button28.Hide()
  2614.  
  2615.     End Sub
  2616.  
  2617.     Private Sub button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
  2618.  
  2619.         p = 2
  2620.  
  2621.         c = 0
  2622.  
  2623.         PictureBox.image = My.Resources.de_dust2_2x2_lite0011
  2624.  
  2625.         button29.Hide()
  2626.  
  2627.     End Sub
  2628.  
  2629.     Private Sub button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
  2630.  
  2631.         p = 15
  2632.  
  2633.         c = 1
  2634.  
  2635.         PictureBox.image = My.Resources.de_dust2_2x2_lite0024
  2636.  
  2637.         button30.Hide()
  2638.  
  2639.         Button32.Show()
  2640.  
  2641.         Button32.Focus()
  2642.  
  2643.     End Sub
  2644.  
  2645.     Private Sub button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
  2646.  
  2647.         p = 14
  2648.  
  2649.         c = 3
  2650.  
  2651.         PictureBox.image = My.Resources.de_dust2_2x2_lite0021
  2652.  
  2653.         button31.Hide()
  2654.  
  2655.     End Sub
  2656.  
  2657.     Private Sub button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
  2658.  
  2659.         p = 22
  2660.  
  2661.         c = 1
  2662.  
  2663.         PictureBox.image = My.Resources.de_dust2_2x2_lite0036
  2664.  
  2665.         button32.Hide()
  2666.  
  2667.     End Sub
  2668.  
  2669.     Private Sub button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
  2670.  
  2671.         p = 15
  2672.  
  2673.         c = 3
  2674.  
  2675.         PictureBox.image = My.Resources.de_dust2_2x2_lite0026
  2676.  
  2677.         button33.Hide()
  2678.  
  2679.         Button31.Show()
  2680.  
  2681.         Button31.Focus()
  2682.  
  2683.     End Sub
  2684.  
  2685.     Private Sub button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
  2686.  
  2687.         p = 16
  2688.  
  2689.         c = 0
  2690.  
  2691.         PictureBox.image = My.Resources.de_dust2_2x2_lite0034
  2692.  
  2693.         button34.Hide()
  2694.  
  2695.         Button36.Show()
  2696.  
  2697.         Button36.Focus()
  2698.  
  2699.     End Sub
  2700.  
  2701.     Private Sub button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
  2702.  
  2703.         p = 15
  2704.  
  2705.         c = 2
  2706.  
  2707.         PictureBox.image = My.Resources.de_dust2_2x2_lite0025
  2708.  
  2709.         button35.Hide()
  2710.  
  2711.     End Sub
  2712.  
  2713.     Private Sub button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
  2714.  
  2715.         p = 17
  2716.  
  2717.         c = 0
  2718.  
  2719.         PictureBox.image = My.Resources.de_dust2_2x2_lite0031
  2720.  
  2721.         button36.Hide()
  2722.  
  2723.     End Sub
  2724.  
  2725.     Private Sub button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
  2726.  
  2727.         p = 16
  2728.  
  2729.         c = 2
  2730.  
  2731.         PictureBox.image = My.Resources.de_dust2_2x2_lite0032
  2732.  
  2733.         button37.Hide()
  2734.  
  2735.         Button35.Show()
  2736.  
  2737.         Button35.Focus()
  2738.  
  2739.     End Sub
  2740.  
  2741.     Private Sub button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
  2742.  
  2743.         p = 3
  2744.  
  2745.         c = 3
  2746.  
  2747.         PictureBox.image = My.Resources.de_dust2_2x2_lite0014
  2748.  
  2749.         button38.Hide()
  2750.  
  2751.         Button6.Show()
  2752.  
  2753.         Button6.Focus()
  2754.  
  2755.     End Sub
  2756.  
  2757.     Private Sub button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
  2758.  
  2759.         p = 17
  2760.  
  2761.         c = 1
  2762.  
  2763.         PictureBox.image = My.Resources.de_dust2_2x2_lite0028
  2764.  
  2765.         button39.Hide()
  2766.  
  2767.     End Sub
  2768.  
  2769.     Private Sub button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
  2770.  
  2771.         p = 18
  2772.  
  2773.         c = 1
  2774.  
  2775.         PictureBox.image = My.Resources.de_dust2_2x2_lite0040
  2776.  
  2777.         button40.Hide()
  2778.  
  2779.     End Sub
  2780.  
  2781.     Private Sub button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
  2782.  
  2783.         p = 16
  2784.  
  2785.         c = 3
  2786.  
  2787.         PictureBox.image = My.Resources.de_dust2_2x2_lite0033
  2788.  
  2789.         button41.Hide()
  2790.  
  2791.     End Sub
  2792.  
  2793.     Private Sub button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
  2794.  
  2795.         p = 19
  2796.  
  2797.         c = 0
  2798.  
  2799.         PictureBox.image = My.Resources.de_dust2_2x2_lite0044
  2800.  
  2801.         button42.Hide()
  2802.  
  2803.     End Sub
  2804.  
  2805.     Private Sub button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
  2806.  
  2807.         p = 18
  2808.  
  2809.         c = 2
  2810.  
  2811.         PictureBox.image = My.Resources.de_dust2_2x2_lite0041
  2812.  
  2813.         button43.Hide()
  2814.  
  2815.     End Sub
  2816.  
  2817.     Private Sub button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
  2818.  
  2819.         p = 20
  2820.  
  2821.         c = 1
  2822.  
  2823.         PictureBox.image = My.Resources.de_dust2_2x2_lite0048
  2824.  
  2825.         button44.Hide()
  2826.  
  2827.         Button46.Show()
  2828.  
  2829.         Button46.Focus()
  2830.  
  2831.     End Sub
  2832.  
  2833.     Private Sub button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
  2834.  
  2835.         p = 19
  2836.  
  2837.         c = 3
  2838.  
  2839.         PictureBox.image = My.Resources.de_dust2_2x2_lite0047
  2840.  
  2841.         button45.Hide()
  2842.  
  2843.     End Sub
  2844.  
  2845.     Private Sub button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
  2846.  
  2847.         p = 21
  2848.  
  2849.         c = 1
  2850.  
  2851.         PictureBox.image = My.Resources.de_dust2_2x2_lite0052
  2852.  
  2853.         button46.Hide()
  2854.  
  2855.     End Sub
  2856.  
  2857.     Private Sub button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click
  2858.  
  2859.         p = 20
  2860.  
  2861.         c = 3
  2862.  
  2863.         PictureBox.image = My.Resources.de_dust2_2x2_lite0050
  2864.  
  2865.         button47.Hide()
  2866.  
  2867.         Button45.Show()
  2868.  
  2869.         Button45.Focus()
  2870.  
  2871.     End Sub
  2872.  
  2873.     Private Sub button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
  2874.  
  2875.         p = 12
  2876.  
  2877.         c = 0
  2878.  
  2879.         PictureBox.image = My.Resources.de_dust2_2x2_lite0056
  2880.  
  2881.         button48.Hide()
  2882.  
  2883.     End Sub
  2884.  
  2885.     Private Sub button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
  2886.  
  2887.         p = 21
  2888.  
  2889.         c = 2
  2890.  
  2891.         PictureBox.image = My.Resources.de_dust2_2x2_lite0053
  2892.  
  2893.         button49.Hide()
  2894.  
  2895.     End Sub
  2896.  
  2897.     Private Sub button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
  2898.  
  2899.         p = 23
  2900.  
  2901.         c = 2
  2902.  
  2903.         PictureBox.image = My.Resources.de_dust2_2x2_lite0080
  2904.  
  2905.         button50.Hide()
  2906.  
  2907.         Button52.Show()
  2908.  
  2909.         Button52.Focus()
  2910.  
  2911.     End Sub
  2912.  
  2913.     Private Sub button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
  2914.  
  2915.         p = 9
  2916.  
  2917.         c = 0
  2918.  
  2919.         PictureBox.image = My.Resources.de_dust2_2x2_lite0079
  2920.  
  2921.         button51.Hide()
  2922.  
  2923.     End Sub
  2924.  
  2925.     Private Sub button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click
  2926.  
  2927.         p = 24
  2928.  
  2929.         c = 2
  2930.  
  2931.         PictureBox.image = My.Resources.de_dust2_2x2_lite0084
  2932.  
  2933.         button52.Hide()
  2934.  
  2935.     End Sub
  2936.  
  2937.     Private Sub button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
  2938.  
  2939.         p = 23
  2940.  
  2941.         c = 0
  2942.  
  2943.         PictureBox.image = My.Resources.de_dust2_2x2_lite0082
  2944.  
  2945.         button53.Hide()
  2946.  
  2947.         Button51.Show()
  2948.  
  2949.         Button51.Focus()
  2950.  
  2951.     End Sub
  2952.  
  2953.     Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
  2954.  
  2955.         If e.KeyCode = Keys.W Then
  2956.  
  2957.             Button1.Invoke(New EventHandler(AddressOf button1_Click))
  2958.  
  2959.             e.Handled = True
  2960.  
  2961.         End If
  2962.  
  2963.     End Sub
  2964.  
  2965.     Private Sub Button2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button2.KeyDown
  2966.  
  2967.         If e.KeyCode = Keys.W Then
  2968.  
  2969.             Button2.Invoke(New EventHandler(AddressOf button2_Click))
  2970.  
  2971.             e.Handled = True
  2972.  
  2973.         End If
  2974.  
  2975.     End Sub
  2976.     ''''''
  2977.    Private Sub Button3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button3.KeyDown
  2978.  
  2979.         If e.KeyCode = Keys.W Then
  2980.  
  2981.             Button3.Invoke(New EventHandler(AddressOf button3_Click))
  2982.  
  2983.             e.Handled = True
  2984.  
  2985.         End If
  2986.  
  2987.     End Sub
  2988.  
  2989.     Private Sub Button4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button4.KeyDown
  2990.  
  2991.         If e.KeyCode = Keys.W Then
  2992.  
  2993.             Button4.Invoke(New EventHandler(AddressOf button4_Click))
  2994.  
  2995.             e.Handled = True
  2996.  
  2997.         End If
  2998.  
  2999.     End Sub
  3000.  
  3001.     Private Sub Button5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button5.KeyDown
  3002.  
  3003.         If e.KeyCode = Keys.W Then
  3004.  
  3005.             Button5.Invoke(New EventHandler(AddressOf button5_Click))
  3006.  
  3007.             e.Handled = True
  3008.  
  3009.         End If
  3010.  
  3011.     End Sub
  3012.  
  3013.     Private Sub Button6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button6.KeyDown
  3014.  
  3015.         If e.KeyCode = Keys.W Then
  3016.  
  3017.             Button6.Invoke(New EventHandler(AddressOf button6_Click))
  3018.  
  3019.             e.Handled = True
  3020.  
  3021.         End If
  3022.  
  3023.     End Sub
  3024.  
  3025.     Private Sub Button7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button7.KeyDown
  3026.  
  3027.         If e.KeyCode = Keys.W Then
  3028.  
  3029.             Button7.Invoke(New EventHandler(AddressOf button7_Click))
  3030.  
  3031.             e.Handled = True
  3032.  
  3033.         End If
  3034.  
  3035.     End Sub
  3036.  
  3037.     Private Sub Button8_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button8.KeyDown
  3038.  
  3039.         If e.KeyCode = Keys.W Then
  3040.  
  3041.             Button8.Invoke(New EventHandler(AddressOf button8_Click))
  3042.  
  3043.             e.Handled = True
  3044.  
  3045.         End If
  3046.  
  3047.     End Sub
  3048.  
  3049.     Private Sub Button9_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button9.KeyDown
  3050.  
  3051.         If e.KeyCode = Keys.W Then
  3052.  
  3053.             Button9.Invoke(New EventHandler(AddressOf button9_Click))
  3054.  
  3055.             e.Handled = True
  3056.  
  3057.         End If
  3058.  
  3059.     End Sub
  3060.  
  3061.     Private Sub Button10_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button10.KeyDown
  3062.  
  3063.         If e.KeyCode = Keys.W Then
  3064.  
  3065.             Button10.Invoke(New EventHandler(AddressOf button10_Click))
  3066.  
  3067.             e.Handled = True
  3068.  
  3069.         End If
  3070.  
  3071.     End Sub
  3072.  
  3073.     Private Sub Button11_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button11.KeyDown
  3074.  
  3075.         If e.KeyCode = Keys.W Then
  3076.  
  3077.             Button11.Invoke(New EventHandler(AddressOf button11_Click))
  3078.  
  3079.             e.Handled = True
  3080.  
  3081.         End If
  3082.  
  3083.     End Sub
  3084.  
  3085.     Private Sub Button12_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button12.KeyDown
  3086.  
  3087.         If e.KeyCode = Keys.W Then
  3088.  
  3089.             Button12.Invoke(New EventHandler(AddressOf button12_Click))
  3090.  
  3091.             e.Handled = True
  3092.  
  3093.         End If
  3094.  
  3095.     End Sub
  3096.  
  3097.     Private Sub Button13_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button13.KeyDown
  3098.  
  3099.         If e.KeyCode = Keys.W Then
  3100.  
  3101.             Button13.Invoke(New EventHandler(AddressOf button13_Click))
  3102.  
  3103.             e.Handled = True
  3104.  
  3105.         End If
  3106.  
  3107.     End Sub
  3108.  
  3109.     Private Sub Button14_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button14.KeyDown
  3110.  
  3111.         If e.KeyCode = Keys.W Then
  3112.  
  3113.             Button14.Invoke(New EventHandler(AddressOf button14_Click))
  3114.  
  3115.             e.Handled = True
  3116.  
  3117.         End If
  3118.  
  3119.     End Sub
  3120.  
  3121.     Private Sub Button15_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button15.KeyDown
  3122.  
  3123.         If e.KeyCode = Keys.W Then
  3124.  
  3125.             Button15.Invoke(New EventHandler(AddressOf button15_Click))
  3126.  
  3127.             e.Handled = True
  3128.  
  3129.         End If
  3130.  
  3131.     End Sub
  3132.  
  3133.     Private Sub Button16_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button16.KeyDown
  3134.  
  3135.         If e.KeyCode = Keys.W Then
  3136.  
  3137.             Button16.Invoke(New EventHandler(AddressOf button16_Click))
  3138.  
  3139.             e.Handled = True
  3140.  
  3141.         End If
  3142.  
  3143.     End Sub
  3144.  
  3145.     Private Sub Button17_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button17.KeyDown
  3146.  
  3147.         If e.KeyCode = Keys.W Then
  3148.  
  3149.             Button17.Invoke(New EventHandler(AddressOf button17_Click))
  3150.  
  3151.             e.Handled = True
  3152.  
  3153.         End If
  3154.  
  3155.     End Sub
  3156.  
  3157.     Private Sub Button18_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button18.KeyDown
  3158.  
  3159.         If e.KeyCode = Keys.W Then
  3160.  
  3161.             Button18.Invoke(New EventHandler(AddressOf button18_Click))
  3162.  
  3163.             e.Handled = True
  3164.  
  3165.         End If
  3166.  
  3167.     End Sub
  3168.  
  3169.     Private Sub Button19_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button19.KeyDown
  3170.  
  3171.         If e.KeyCode = Keys.W Then
  3172.  
  3173.             Button19.Invoke(New EventHandler(AddressOf button19_Click))
  3174.  
  3175.             e.Handled = True
  3176.  
  3177.         End If
  3178.  
  3179.     End Sub
  3180.  
  3181.     Private Sub Button20_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button20.KeyDown
  3182.  
  3183.         If e.KeyCode = Keys.W Then
  3184.  
  3185.             Button20.Invoke(New EventHandler(AddressOf button20_Click))
  3186.  
  3187.             e.Handled = True
  3188.  
  3189.         End If
  3190.  
  3191.     End Sub
  3192.  
  3193.     Private Sub Button21_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button21.KeyDown
  3194.  
  3195.         If e.KeyCode = Keys.W Then
  3196.  
  3197.             Button21.Invoke(New EventHandler(AddressOf button21_Click))
  3198.  
  3199.             e.Handled = True
  3200.  
  3201.         End If
  3202.  
  3203.     End Sub
  3204.  
  3205.     Private Sub Button22_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button22.KeyDown
  3206.  
  3207.         If e.KeyCode = Keys.W Then
  3208.  
  3209.             Button22.Invoke(New EventHandler(AddressOf button22_Click))
  3210.  
  3211.             e.Handled = True
  3212.  
  3213.         End If
  3214.  
  3215.     End Sub
  3216.  
  3217.     Private Sub Button23_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button23.KeyDown
  3218.  
  3219.         If e.KeyCode = Keys.W Then
  3220.  
  3221.             Button23.Invoke(New EventHandler(AddressOf button23_Click))
  3222.  
  3223.             e.Handled = True
  3224.  
  3225.         End If
  3226.  
  3227.     End Sub
  3228.  
  3229.     Private Sub Button24_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button24.KeyDown
  3230.  
  3231.         If e.KeyCode = Keys.W Then
  3232.  
  3233.             Button24.Invoke(New EventHandler(AddressOf button24_Click))
  3234.  
  3235.             e.Handled = True
  3236.  
  3237.         End If
  3238.  
  3239.     End Sub
  3240.  
  3241.     Private Sub Button25_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button25.KeyDown
  3242.  
  3243.         If e.KeyCode = Keys.W Then
  3244.  
  3245.             Button25.Invoke(New EventHandler(AddressOf button25_Click))
  3246.  
  3247.             e.Handled = True
  3248.  
  3249.         End If
  3250.  
  3251.     End Sub
  3252.  
  3253.     Private Sub Button26_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button26.KeyDown
  3254.  
  3255.         If e.KeyCode = Keys.W Then
  3256.  
  3257.             Button26.Invoke(New EventHandler(AddressOf button26_Click))
  3258.  
  3259.             e.Handled = True
  3260.  
  3261.         End If
  3262.  
  3263.     End Sub
  3264.  
  3265.     Private Sub Button27_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button27.KeyDown
  3266.  
  3267.         If e.KeyCode = Keys.W Then
  3268.  
  3269.             Button27.Invoke(New EventHandler(AddressOf button27_Click))
  3270.  
  3271.             e.Handled = True
  3272.  
  3273.         End If
  3274.  
  3275.     End Sub
  3276.  
  3277.     Private Sub Button28_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button28.KeyDown
  3278.  
  3279.         If e.KeyCode = Keys.W Then
  3280.  
  3281.             Button28.Invoke(New EventHandler(AddressOf button28_Click))
  3282.  
  3283.             e.Handled = True
  3284.  
  3285.         End If
  3286.  
  3287.     End Sub
  3288.  
  3289.     Private Sub Button29_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button29.KeyDown
  3290.  
  3291.         If e.KeyCode = Keys.W Then
  3292.  
  3293.             Button29.Invoke(New EventHandler(AddressOf button29_Click))
  3294.  
  3295.             e.Handled = True
  3296.  
  3297.         End If
  3298.  
  3299.     End Sub
  3300.  
  3301.     Private Sub Button30_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button30.KeyDown
  3302.  
  3303.         If e.KeyCode = Keys.W Then
  3304.  
  3305.             Button30.Invoke(New EventHandler(AddressOf button30_Click))
  3306.  
  3307.             e.Handled = True
  3308.  
  3309.         End If
  3310.  
  3311.     End Sub
  3312.  
  3313.     Private Sub Button31_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button31.KeyDown
  3314.  
  3315.         If e.KeyCode = Keys.W Then
  3316.  
  3317.             Button31.Invoke(New EventHandler(AddressOf button31_Click))
  3318.  
  3319.             e.Handled = True
  3320.  
  3321.         End If
  3322.  
  3323.     End Sub
  3324.  
  3325.     Private Sub Button32_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button32.KeyDown
  3326.  
  3327.         If e.KeyCode = Keys.W Then
  3328.  
  3329.             Button32.Invoke(New EventHandler(AddressOf button32_Click))
  3330.  
  3331.             e.Handled = True
  3332.  
  3333.         End If
  3334.  
  3335.     End Sub
  3336.  
  3337.     Private Sub Button33_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button33.KeyDown
  3338.  
  3339.         If e.KeyCode = Keys.W Then
  3340.  
  3341.             Button33.Invoke(New EventHandler(AddressOf button33_Click))
  3342.  
  3343.             e.Handled = True
  3344.  
  3345.         End If
  3346.  
  3347.     End Sub
  3348.  
  3349.     Private Sub Button34_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button34.KeyDown
  3350.  
  3351.         If e.KeyCode = Keys.W Then
  3352.  
  3353.             Button34.Invoke(New EventHandler(AddressOf button34_Click))
  3354.  
  3355.             e.Handled = True
  3356.  
  3357.         End If
  3358.  
  3359.     End Sub
  3360.  
  3361.     Private Sub Button35_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button35.KeyDown
  3362.  
  3363.         If e.KeyCode = Keys.W Then
  3364.  
  3365.             Button35.Invoke(New EventHandler(AddressOf button35_Click))
  3366.  
  3367.             e.Handled = True
  3368.  
  3369.         End If
  3370.  
  3371.     End Sub
  3372.  
  3373.     Private Sub Button36_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button36.KeyDown
  3374.  
  3375.         If e.KeyCode = Keys.W Then
  3376.  
  3377.             Button36.Invoke(New EventHandler(AddressOf button36_Click))
  3378.  
  3379.             e.Handled = True
  3380.  
  3381.         End If
  3382.  
  3383.     End Sub
  3384.  
  3385.     Private Sub Button37_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button37.KeyDown
  3386.  
  3387.         If e.KeyCode = Keys.W Then
  3388.  
  3389.             Button37.Invoke(New EventHandler(AddressOf button37_Click))
  3390.  
  3391.             e.Handled = True
  3392.  
  3393.         End If
  3394.  
  3395.     End Sub
  3396.  
  3397.     Private Sub Button38_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button38.KeyDown
  3398.  
  3399.         If e.KeyCode = Keys.W Then
  3400.  
  3401.             Button38.Invoke(New EventHandler(AddressOf button38_Click))
  3402.  
  3403.             e.Handled = True
  3404.  
  3405.         End If
  3406.  
  3407.     End Sub
  3408.  
  3409.     Private Sub Button39_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button39.KeyDown
  3410.  
  3411.         If e.KeyCode = Keys.W Then
  3412.  
  3413.             Button39.Invoke(New EventHandler(AddressOf button39_Click))
  3414.  
  3415.             e.Handled = True
  3416.  
  3417.         End If
  3418.  
  3419.     End Sub
  3420.  
  3421.     Private Sub Button40_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button40.KeyDown
  3422.  
  3423.         If e.KeyCode = Keys.W Then
  3424.  
  3425.             Button40.Invoke(New EventHandler(AddressOf button40_Click))
  3426.  
  3427.             e.Handled = True
  3428.  
  3429.         End If
  3430.  
  3431.     End Sub
  3432.  
  3433.     Private Sub Button41_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button41.KeyDown
  3434.  
  3435.         If e.KeyCode = Keys.W Then
  3436.  
  3437.             Button41.Invoke(New EventHandler(AddressOf button41_Click))
  3438.  
  3439.             e.Handled = True
  3440.  
  3441.         End If
  3442.  
  3443.     End Sub
  3444.  
  3445.     Private Sub Button42_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button42.KeyDown
  3446.  
  3447.         If e.KeyCode = Keys.W Then
  3448.  
  3449.             Button42.Invoke(New EventHandler(AddressOf button42_Click))
  3450.  
  3451.             e.Handled = True
  3452.  
  3453.         End If
  3454.  
  3455.     End Sub
  3456.  
  3457.     Private Sub Button43_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button43.KeyDown
  3458.  
  3459.         If e.KeyCode = Keys.W Then
  3460.  
  3461.             Button43.Invoke(New EventHandler(AddressOf button43_Click))
  3462.  
  3463.             e.Handled = True
  3464.  
  3465.         End If
  3466.  
  3467.     End Sub
  3468.  
  3469.     Private Sub Button44_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button44.KeyDown
  3470.  
  3471.         If e.KeyCode = Keys.W Then
  3472.  
  3473.             Button44.Invoke(New EventHandler(AddressOf button44_Click))
  3474.  
  3475.             e.Handled = True
  3476.  
  3477.         End If
  3478.  
  3479.     End Sub
  3480.  
  3481.     Private Sub Button45_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button45.KeyDown
  3482.  
  3483.         If e.KeyCode = Keys.W Then
  3484.  
  3485.             Button45.Invoke(New EventHandler(AddressOf button45_Click))
  3486.  
  3487.             e.Handled = True
  3488.  
  3489.         End If
  3490.  
  3491.     End Sub
  3492.  
  3493.     Private Sub Button46_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button46.KeyDown
  3494.  
  3495.         If e.KeyCode = Keys.W Then
  3496.  
  3497.             Button46.Invoke(New EventHandler(AddressOf button46_Click))
  3498.  
  3499.             e.Handled = True
  3500.  
  3501.         End If
  3502.  
  3503.     End Sub
  3504.  
  3505.     Private Sub Button47_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button47.KeyDown
  3506.  
  3507.         If e.KeyCode = Keys.W Then
  3508.  
  3509.             Button47.Invoke(New EventHandler(AddressOf button47_Click))
  3510.  
  3511.             e.Handled = True
  3512.  
  3513.         End If
  3514.  
  3515.     End Sub
  3516.  
  3517.     Private Sub Button48_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button48.KeyDown
  3518.  
  3519.         If e.KeyCode = Keys.W Then
  3520.  
  3521.             Button48.Invoke(New EventHandler(AddressOf button48_Click))
  3522.  
  3523.             e.Handled = True
  3524.  
  3525.         End If
  3526.  
  3527.     End Sub
  3528.  
  3529.     Private Sub Button49_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button49.KeyDown
  3530.  
  3531.         If e.KeyCode = Keys.W Then
  3532.  
  3533.             Button49.Invoke(New EventHandler(AddressOf button49_Click))
  3534.  
  3535.             e.Handled = True
  3536.  
  3537.         End If
  3538.  
  3539.     End Sub
  3540.  
  3541.     Private Sub Button50_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button50.KeyDown
  3542.  
  3543.         If e.KeyCode = Keys.W Then
  3544.  
  3545.             Button50.Invoke(New EventHandler(AddressOf button50_Click))
  3546.  
  3547.             e.Handled = True
  3548.  
  3549.         End If
  3550.  
  3551.     End Sub
  3552.  
  3553.     Private Sub Button51_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button51.KeyDown
  3554.  
  3555.         If e.KeyCode = Keys.W Then
  3556.  
  3557.             Button51.Invoke(New EventHandler(AddressOf button51_Click))
  3558.  
  3559.             e.Handled = True
  3560.  
  3561.         End If
  3562.  
  3563.     End Sub
  3564.  
  3565.     Private Sub Button52_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button52.KeyDown
  3566.  
  3567.         If e.KeyCode = Keys.W Then
  3568.  
  3569.             Button52.Invoke(New EventHandler(AddressOf button52_Click))
  3570.  
  3571.             e.Handled = True
  3572.  
  3573.         End If
  3574.  
  3575.     End Sub
  3576.  
  3577.     Private Sub Button53_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button53.KeyDown
  3578.  
  3579.         If e.KeyCode = Keys.W Then
  3580.  
  3581.             Button53.Invoke(New EventHandler(AddressOf button53_Click))
  3582.  
  3583.             e.Handled = True
  3584.  
  3585.         End If
  3586.  
  3587.     End Sub
  3588.  
  3589.     Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click ' Террористы
  3590.  
  3591.         PictureBox.Show()
  3592.  
  3593.         p = 0
  3594.  
  3595.         c = 0
  3596.  
  3597.         PictureBox.Image = My.Resources.de_dust2_2x2_lite0000
  3598.  
  3599.         s = 1
  3600.  
  3601.         Button1.Show()
  3602.  
  3603.         Button1.Focus()
  3604.  
  3605.         Button54.Hide()
  3606.         Button55.Hide()
  3607.  
  3608.         Button66.Hide()
  3609.  
  3610.         TextBox2.Hide()
  3611.  
  3612.     End Sub
  3613.  
  3614.     Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click ' Контртеррористы
  3615.  
  3616.         PictureBox.Show()
  3617.  
  3618.         p = 24
  3619.  
  3620.         c = 0
  3621.  
  3622.         PictureBox.Image = My.Resources.de_dust2_2x2_lite0086
  3623.  
  3624.         s = 2
  3625.  
  3626.         Button53.Show()
  3627.  
  3628.         Button53.Focus()
  3629.  
  3630.         Button54.Hide()
  3631.         Button55.Hide()
  3632.  
  3633.         Button66.Hide()
  3634.  
  3635.         TextBox2.Hide()
  3636.  
  3637.     End Sub
  3638.  
  3639.     Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click ' Закупка
  3640.  
  3641.         If s = 1 Then
  3642.  
  3643.  
  3644.  
  3645.         End If
  3646.  
  3647.     End Sub
  3648.  
  3649.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  3650.  
  3651.         PictureBox3.Show()
  3652.  
  3653.         PictureBox3.Image = My.Resources.CS_zastavka
  3654.  
  3655.         Timer2.Start()
  3656.  
  3657.     End Sub
  3658.  
  3659.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  3660.  
  3661.         PictureBox3.Image = My.Resources.CS_zastavka1
  3662.  
  3663.         Timer1.Stop()
  3664.  
  3665.         Timer3.start()
  3666.  
  3667.     End Sub
  3668.  
  3669.     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
  3670.  
  3671.         PictureBox3.Hide()
  3672.  
  3673.         PictureBox2.Show()
  3674.  
  3675.         Button57.Show()
  3676.         Button58.Show()
  3677.         Button59.Show()
  3678.         Button60.Show()
  3679.         Button61.Show()
  3680.  
  3681.         Timer2.Stop()
  3682.         Timer3.Stop()
  3683.  
  3684.     End Sub
  3685.  
  3686.     Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click ' Выйти
  3687.  
  3688.         Button57.Hide()
  3689.         Button58.Hide()
  3690.         Button59.Hide()
  3691.         Button60.Hide()
  3692.         Button61.Hide()
  3693.  
  3694.         If MessageBox.Show("Вы действительно хотите выйти?", "Выход", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
  3695.  
  3696.             Close()
  3697.  
  3698.         Else
  3699.  
  3700.             Button57.Show()
  3701.             Button58.Show()
  3702.             Button59.Show()
  3703.             Button60.Show()
  3704.             Button61.Show()
  3705.  
  3706.         End If
  3707.  
  3708.     End Sub
  3709.  
  3710.     Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click ' Новая игра
  3711.  
  3712.         PictureBox2.Hide()
  3713.  
  3714.         Button54.Show()
  3715.         Button55.Show()
  3716.         Button66.Show()
  3717.  
  3718.         TextBox2.Show()
  3719.  
  3720.         Button57.Hide()
  3721.         Button58.Hide()
  3722.         Button59.Hide()
  3723.         Button60.Hide()
  3724.         Button61.Hide()
  3725.  
  3726.     End Sub
  3727.  
  3728.     Private Sub Button60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button60.Click ' Настройки
  3729.  
  3730.         PictureBox4.Show()
  3731.  
  3732.         Button62.Show()
  3733.  
  3734.         Button63.Show()
  3735.  
  3736.         Button64.Show()
  3737.  
  3738.         Button65.Show()
  3739.  
  3740.         Label1.Show()
  3741.  
  3742.         TextBox1.Show()
  3743.  
  3744.         Button57.Hide()
  3745.         Button58.Hide()
  3746.         Button59.Hide()
  3747.         Button60.Hide()
  3748.         Button61.Hide()
  3749.  
  3750.     End Sub
  3751.  
  3752.     Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click ' ОК в настройках
  3753.  
  3754.         n = TextBox1.Text
  3755.  
  3756.         PictureBox4.Hide()
  3757.  
  3758.         Button62.Hide()
  3759.  
  3760.         Button63.Hide()
  3761.  
  3762.         Button64.Hide()
  3763.  
  3764.         Button65.Hide()
  3765.  
  3766.         Label1.Hide()
  3767.  
  3768.         TextBox1.Hide()
  3769.  
  3770.         Button57.Show()
  3771.         Button58.Show()
  3772.         Button59.Show()
  3773.         Button60.Show()
  3774.         Button61.Show()
  3775.  
  3776.         CheckBox1.Hide()
  3777.         CheckBox2.Hide()
  3778.  
  3779.     End Sub
  3780.  
  3781.     Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click ' Отмена в настройках
  3782.  
  3783.         PictureBox4.Hide()
  3784.  
  3785.         Button62.Hide()
  3786.  
  3787.         Button63.Hide()
  3788.  
  3789.         Button64.Hide()
  3790.  
  3791.         Button65.Hide()
  3792.  
  3793.         Label1.Hide()
  3794.  
  3795.         TextBox1.Hide()
  3796.  
  3797.         Button57.Show()
  3798.         Button58.Show()
  3799.         Button59.Show()
  3800.         Button60.Show()
  3801.         Button61.Show()
  3802.  
  3803.         CheckBox1.Hide()
  3804.         CheckBox2.Hide()
  3805.  
  3806.     End Sub
  3807.  
  3808.     Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
  3809.  
  3810.         Button57.Hide()
  3811.         Button58.Hide()
  3812.         Button59.Hide()
  3813.         Button60.Hide()
  3814.         Button61.Hide()
  3815.  
  3816.         If MessageBox.Show("Powered by Larionov Sergey, 13PK group", "Справка", MessageBoxButtons.OK, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then
  3817.  
  3818.             Button57.Show()
  3819.             Button58.Show()
  3820.             Button59.Show()
  3821.             Button60.Show()
  3822.             Button61.Show()
  3823.  
  3824.         End If
  3825.  
  3826.     End Sub
  3827.  
  3828.     Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click
  3829.  
  3830.         Button57.Hide()
  3831.         Button58.Hide()
  3832.         Button59.Hide()
  3833.         Button60.Hide()
  3834.         Button61.Hide()
  3835.  
  3836.         If MessageBox.Show("'W' - вперед, 'K' и 'L' - поворот камеры", "Помощь", MessageBoxButtons.OK, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then
  3837.  
  3838.             Button57.Show()
  3839.             Button58.Show()
  3840.             Button59.Show()
  3841.             Button60.Show()
  3842.             Button61.Show()
  3843.  
  3844.         End If
  3845.  
  3846.     End Sub
  3847.  
  3848.     Private Sub Button62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click ' "Игра" в настройках
  3849.  
  3850.         PictureBox4.Show()
  3851.  
  3852.         Button62.Show()
  3853.  
  3854.         Button63.Show()
  3855.  
  3856.         Button64.Show()
  3857.  
  3858.         Button65.Show()
  3859.  
  3860.         Label1.Show()
  3861.  
  3862.         TextBox1.Show()
  3863.  
  3864.         Button57.Hide()
  3865.         Button58.Hide()
  3866.         Button59.Hide()
  3867.         Button60.Hide()
  3868.         Button61.Hide()
  3869.  
  3870.         CheckBox1.Hide()
  3871.         CheckBox2.Hide()
  3872.  
  3873.     End Sub
  3874.  
  3875.     Private Sub Button63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click ' "Звук" в настройках
  3876.  
  3877.         PictureBox4.Show()
  3878.  
  3879.         Button64.Show()
  3880.  
  3881.         Button65.Show()
  3882.  
  3883.         CheckBox1.Show()
  3884.         CheckBox2.Show()
  3885.  
  3886.         Button57.Hide()
  3887.         Button58.Hide()
  3888.         Button59.Hide()
  3889.         Button60.Hide()
  3890.         Button61.Hide()
  3891.  
  3892.         TextBox1.Hide()
  3893.  
  3894.         Label1.Hide()
  3895.  
  3896.     End Sub
  3897.  
  3898.     Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click ' "выбрать случайно" в выборе команд
  3899.  
  3900.         s = ra.Next(2)
  3901.  
  3902.         TextBox3.Text = s
  3903.  
  3904.         If TextBox3.Text = 0 Then ' Террористы
  3905.  
  3906.             PictureBox.Show()
  3907.  
  3908.             p = 0
  3909.  
  3910.             c = 0
  3911.  
  3912.             PictureBox.Image = My.Resources.de_dust2_2x2_lite0000
  3913.  
  3914.             s = 1
  3915.  
  3916.             Button1.Show()
  3917.  
  3918.             Button1.Focus()
  3919.  
  3920.             Button54.Hide()
  3921.             Button55.Hide()
  3922.  
  3923.             Button66.Hide()
  3924.  
  3925.             TextBox2.Hide()
  3926.  
  3927.         End If
  3928.  
  3929.         If TextBox3.Text = 1 Then ' Контртеррористы
  3930.  
  3931.             PictureBox.Show()
  3932.  
  3933.             p = 24
  3934.  
  3935.             c = 0
  3936.  
  3937.             PictureBox.Image = My.Resources.de_dust2_2x2_lite0086
  3938.  
  3939.             s = 2
  3940.  
  3941.             Button53.Show()
  3942.  
  3943.             Button53.Focus()
  3944.  
  3945.             Button54.Hide()
  3946.             Button55.Hide()
  3947.  
  3948.             Button66.Hide()
  3949.  
  3950.             TextBox2.Hide()
  3951.  
  3952.         End If
  3953.  
  3954.     End Sub
  3955. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!