Как исправить ошибку C2447

---

Привет. Я пытаюсь написать простую программу, но постоянно получаю эту ошибку : ошибка C2447: отсутствует заголовок функции (формальный список старого стиля?). может ли кто-нибудь объяснить почему??

{
общественности частичного класс form1 : форма

открытый form1 ()


Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer


Частная суб методе form1_load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Загрузить
Таймера1.Начать()
Конец Подводной Лодки

Private Sub STPbtn_Click(sender As Object, e As EventArgs) обрабатывает STPbtn.Щелчок
Таймер1.Стоп()
Конец Подводной Лодки

Private Sub SSChk_Tick(sender As Object, e As EventArgs) обрабатывает SSChk.Tick
If (GetAsyncKeyState(117)) Затем
Таймера1.Начать()
Конец, Если
If (GetAsyncKeyState(118)) Затем
Таймер1.Стоп()
Конец, Если
Конец Подводной Лодки

Private Sub Timer1_Tick(sender As Object, e As EventArgs) обрабатывает Timer1.Tick
Тусклая БМП как новый чертеж.Растровое изображение(1, 1)
Дим видеокарта в системе.Рисование.графическая система.Рисование.Графика.FromImage(BMP)
Видеокарта.CopyFromScreen(Новый Рисунок.Точка(Положение Мыши.Х, MousePosition.Г),
новый рисунок.Точка(0, 0), BMP.Size)
Тусклый Пиксель Как Чертеж.Color = BMP.GetPixel(0, 0)
CPpanel.BackColor = Пиксель
Redtxt.Текст = Пиксель.Р
Гринтхт.Текст = Пиксель.G
Bluetxt.Текст = Пиксель.B
TextBox1.Text = Пиксель.Метод toString


Конец Подводной Лодки

Private Sub CPpanel_Paint(sender As Object, e As PaintEventArgs) обрабатывает CPpanel.Краска

Конец Подводной Лодки
Частная суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Если OpenFileDialog1.ShowDialog = Windows.Формы.свойство DialogResult.Тогда ладно
TextBox1.Text = OpenFileDialog1.имя файла
Имя picturebox1.ImageLocation = Текстовое Поле Textbox1.Текст
Конец, Если
Конец Подводной Лодки


Private Sub TextBox2_TextChanged(отправитель как объект, e Как EventArgs)

Конец Подводной Лодки


Частная суб методе button2_click(отправителя как объект, а равно EventArgs) обрабатывает элемент button2.Нажмите
Процесс.Начало("http://www.google.com/search?client=mysearch&q=" & TextBox1.Text)
Конец Подводной Лодки

Частная суб CPpanel_Paint(отправителя как объект, факультативный объект, как Р2 = ничего, необязательно е, EventArgs в = Ничего)
Бросить Новое Исключение Notimplementedexception
Конец Подводной Лодки


Private Sub STbnt_Click(sender As Object, e As EventArgs) обрабатывает STbnt.Щелчок

Конец Подводной Лодки

Частная суб TextBox1_TextChanged(отправителя как объект, а равно EventArgs) обрабатывает текстовое поле textbox1.Очередь textchanged

Конец Подводной Лодки

Частная суб PictureBox1_Click(отправителя как объект, а равно EventArgs) обрабатывает имя picturebox1.Нажмите

Конец Подводной Лодки


Private Sub Bluetxt_TextChanged(отправитель как объект, e Как EventArgs) обрабатывает Bluetxt.TextChanged

Конец Подводной Лодки

Private Sub Label3_Click(sender As Object, e As EventArgs) обрабатывает Label3.Click

Конец Подводной Лодки


End Класса};
}

Что я уже пробовал:

Я проверил все брекеты, чтобы убедиться, что они все правильные.

---