d3d menü yardım!!

Timer a  KODLA ENABLED = TRUE

İNTERVAL = 1 OLSUN .



        Me.Location = New Point(15, 10) 'Bu Başlangıc Noktası

        '///////////////////////////////////////////////////////////////////

        ' İnsert Baş

        On Error Resume Next

        Dim game As Process() = Process.GetProcessesByName("wolftü.bin")

        On Error Resume Next

        If GetAsyncKeyState(Keys.Insert) = -32767 Then

            If d3d.Visible = False Then

                d3d.Visible = True



                Me.Show()

                Exit Sub

            End If

            If d3d.Visible = True Then

                d3d.Visible = False



                Me.Hide()

                Exit Sub

            End If

        End If

        ' İnsert Son

        '///////////////////////////////////////////////////////////////////

        If GetAsyncKeyState(Keys.Delete) Then

            Me.Hide()

            Hide()

            Close()

            End

            Exit Sub

        End If

  If GetAsyncKeyState(Keys.Insert) = -32767 Then
  BUNDA HATA ALIYOSAN EĞER ŞU VERECEĞİM KODU FORM1 İN ALTINA YAPIŞTIR.
  hATA ALMIYOSAN KALSIN.
 
  '//Puplıc Class Alt Bölgesi
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer