How to make D3D menu.

**¢hris.** · 07-05-2011

I found this on google.I seen many people asking "how to make D3D menu"
I dont know is it working but try it

If i did something wrong please say "/req close" or something else
[VB-Code]HOW TO create a D3D-Menu whit VB
I hope this help anybody of you I dont declare the Funktions
now 'cuz no Time i do it later!

Code:

1. Create whit VB a new Form 2. Make Transparenty Color White and Back Color White too! 3. Make 4 Label´s in it! One and tow you write the Funktion Text in it. three and four you write Off in it. 4. Make 2 Timers call one D3D and one menu make Enable true and a Interval of 100 5. Go to the Code editing Page and add this: Spoiler Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) Dim HackLabel = 1 Dim CNT4 = 0 Private Sub D3D_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D3D.Tick If GetAsyncKeyState(118) Then If CNT4 = 1 Then Sleep(200) Me.Show() CNT4 = CNT4 - 1 Else Sleep(200) Me.Hide() CNT4 = CNT4 + 1 End If If CNT4 < 0 Then CNT4 = 0 End If If HackLabel > 2 Then HackLabel = 1 If HackLabel < 1 Then HackLabel = 2 If GetAsyncKeyState(40) Then HackLabel = HackLabel + 1 Sleep(200) End If If GetAsyncKeyState(38) Then HackLabel = HackLabel - 1 Sleep(200) End If If HackLabel = 1 Then Me.Label1.ForeColor = Color.DarkBlue Me.Label2.ForeColor = Color.DarkBlue ElseIf Label1.ForeColor <> Color.DarkBlue Then Me.Label1.ForeColor = Color.DarkBlue Me.Label2.ForeColor = Color.DarkBlue End If If HackLabel = 1 Then Me.Label3.ForeColor = Color.DarkBlue Me.Label4.ForeColor = Color.DarkBlue ElseIf Label3.ForeColor <> Color.DarkBlue Then Me.Label3.ForeColor = Color.DarkBlue Me.Label4.ForeColor = Color.DarkBlue End If If HackLabel = 1 Then If Label2.Text = "Off" Then If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then Label2.ForeColor = Color.DarkBlue Label2.Text = "On" 'Hack Funktion1 On Sleep(200) End If End If If Label2.Text = "On" Then If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then Label2.ForeColor = Color.DarkBlue Label2.Text = "Off" Sleep(200) End If End If End If If HackLabel = 2 Then If Label4.Text = "Off" Then If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then Label4.ForeColor = Color.DarkBlue Label4.Text = "On" 'Hack Funktion2 On Sleep(200) End If End If If Label4.Text = "On" Then If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then Label4.ForeColor = Color.DarkBlue Label4.Text = "Off" Sleep(200) End If End If End If If Label2.Text <> "Off" Then Me.Label2.ForeColor = Color.DarkBlue Me.Label1.ForeColor = Color.DarkBlue End If If Label4.Text <> "Off" Then Me.Label4.ForeColor = Color.DarkBlue Me.Label3.ForeColor = Color.DarkBlue End If End Sub 6. You can make Transparenz to 80% for a lower Visibelety and add a BackGroundImage and chance the Show Ican to false and Show in TaskBar to false chance the Start Position to Manual and the Location to 25; 25 i think that is the best! 7. Compile it and Open