Can someone plz post how to make ingame menu in vb6

[Aprill27]

Like the titel says.If u have a tut ore something that can help than PLZ HELP:THX.I mean its like fake d3d menu.

[ZeaS]

take a look at the c++ menu (highlight menu) then write it in vb6 : P

[CptM0rg@n]

take a look at the c++ menu (highlight menu) then write it in vb6 : P

i heard u cant do it in vb6, quite a few ppl told me that

[Firesnipe]

i heard u cant do it in vb6, quite a few ppl told me that

Actully you cna do an ingame menu in VB
But it takes a lil work

[frostbitekid]

u can. u need a code that makes the hack stay on top or something

[ZeaS]

i heard u cant do it in vb6, quite a few ppl told me that

nope seb and me done one here's a screen

it's like the highlight system for c++ but i wont give out the source : P

ups edit: link removed because adversiting =\

[frostbitekid]

noooo i wanna see pic plz

[Spenser]

Just make the form see through and make hotkeys, and put the form 0 None.

:)

[ZeaS]

noooo i wanna see pic plz

: P


looks like this..

http://img145.imageshack.us/img145/8594/ingamegm2.png

[Yougotowned]

i herd that is hard and takes a while if u do not know what you are doing XD

[apezwijn]

G damn it..
VB IS SO EASY
USE KEYS AND A STANDARD .EXE PROJECt..
USE YOUR BRAINS PEOPLE.

[FreeProxies]

Form Forced to ForeGround:

Its very simple :!:, here is what you do:

First add this module:

Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_HIDEWINDOW As Long = &H80
Public Const SWP_NOACTIVATE As Long = &H10
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_SHOWWINDOW = &H40
Public Const HWND_TOP = 0&
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2

Then put this in the Form_Load section of your codes:
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE


How to Make your Form Transparent:

First add 2 modules

1:
Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_***** = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal x As Byte, ByVal ***** As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long


2:
Option Explicit

Sub SetTranslucent(ThehWnd As Long, nTrans As Integer)
On Error GoTo ErrorRtn

'SetWindowLong and SetLayeredWindowAttributes are API functions, see MSDN for details
Dim attrib As Long
attrib = GetWindowLong(ThehWnd, GWL_EXSTYLE)
SetWindowLong ThehWnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
SetLayeredWindowAttributes ThehWnd, RGB(255, 255, 0), nTrans, LWA_*****
Exit Sub
ErrorRtn:
MsgBox Err.Description & " Source : " & Err.Source

End Sub

Then make a textbox and a commandbutton.

Put this code into the commandbutton :
On Error GoTo ErrorRtn
g_nTransparency = Text1.Text
If g_nTransparency < 0 Then g_nTransparency = 0
If g_nTransparency > 255 Then g_nTransparency = 255
SetTranslucent Me.hwnd, g_nTransparency
Exit Sub
ErrorRtn:
MsgBox Err.Description & " Source : " & Err.Source

put this in the General section of the codes:
Option Explicit
Dim g_nTransparency As Integer

Finally put this in the Form_load section:
Text1.Text = 150
g_nTransparency = 150

If you type in a number in the textbox between 0 and 255 and then click the commandbutton something will happen !! :D
How lower the number you put in, how more transparant the form will be.