Visual Basic D3D Menü Yapımı

Public Class Form1 ' Form kaçsa yazın
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Try
            Interaction.AppActivate("wolftü.bin") ' çalışacak uygulama !! cemal !!
            Me.TopMost = True
        Catch
            Me.TopMost = True
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Down) = -32767 Then


            If Label1.ForeColor = Color.Orange Then
                Label1.ForeColor = Color.White
                Label2.ForeColor = Color.Orange
                Exit Sub
            End If
            
            If Label2.ForeColor = Color.Orange Then
                Label2.ForeColor = Color.White
                Label6.ForeColor = Color.Orange
                Exit Sub
            End If
            If Label6.ForeColor = Color.Orange Then
                Label6.ForeColor = Color.Orange
                Exit Sub
            End If
        End If

        If GetAsyncKeyState(Keys.Up) = -32767 Then
            If Label2.ForeColor = Color.Orange Then
                Label2.ForeColor = Color.White
                Label1.ForeColor = Color.Orange
                Exit Sub
            End If

            If Label1.ForeColor = Color.Orange Then
                Label1.ForeColor = Color.Orange

            End If
            If Label6.ForeColor = Color.Orange Then
                Label6.ForeColor = Color.White
                Label2.ForeColor = Color.Orange
                Exit Sub
            End If

            If Label2.ForeColor = Color.Orange Then
                Label2.ForeColor = Color.Orange

            End If

        End If
        If GetAsyncKeyState(Keys.Insert) = -32767 Then
            If Label1.Visible = False Then
                Label1.Visible = True
                Me.Show()
                Exit Sub
            End If
            If Label1.Visible = True Then
                Label1.Visible = False
                Me.Hide()
                Exit Sub
            End If
        End If
        If GetAsyncKeyState(Keys.Delete) = -32767 Then
            Application.Exit()
            Exit Sub
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.Right) = -32767 Then
            If Label1.ForeColor = Color.Orange Then
                Label3.ForeColor = Color.White
                Label3.Text = "[ON]"
                Exit Sub
            End If
            If Label2.ForeColor = Color.Orange Then
                Label4.ForeColor = Color.White
                Label4.Text = "[ON]"
                Exit Sub
            End If
            If Label6.ForeColor = Color.Orange Then
                Label5.ForeColor = Color.White
                Label5.Text = "[ON]"
                Exit Sub
            End If
        End If

        If GetAsyncKeyState(Keys.Left) = -32767 Then
            If Label1.ForeColor = Color.Orange Then
                Label3.ForeColor = Color.Red
                Label3.Text = "[OFF]"
                Exit Sub
            End If
            If Label2.ForeColor = Color.Orange Then
                Label4.ForeColor = Color.Red
                Label4.Text = "[OFF]"
                Exit Sub
            End If
            If Label6.ForeColor = Color.Orange Then
                Label5.ForeColor = Color.Red
                Label5.Text = "[OFF]"
                Exit Sub
            End If
        End If
    End Sub
End Class