Display a resizable form, with NO icon, that isn't a tool form...

Just like the subject sez...how?
I can remove the icon from the Title bar, but my form has to be set to fixed dialog and I can't resize it :(

Woka

form borderstyle to fixed dialog, find the "Icon" property and press delete/backspace to remove the "(Icon)" thing :)

the icon will still appear in the IDE, but when run will magically dissapear :D

What part of "resizable form" didn't you understand??? Hahahahahaha :D
Fixed it...Here's the code:

VB Code:

Option Explicit
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Private Const WS_THICKFRAME         As Long = &H40000
Private Const WS_MAXIMIZE           As Long = &H1000000
Private Const WS_MAXIMIZEBOX        As Long = &H10000
Private Const WS_MINIMIZE           As Long = &H20000000
Private Const WS_MINIMIZEBOX        As Long = &H20000
 
Private Const WS_EX_WINDOWEDGE      As Long = &H100
Private Const WS_EX_APPWINDOW       As Long = &H40000
Private Const WS_EX_DLGMODALFRAME   As Long = &H1
 
Private Const GWL_EXSTYLE           As Long = (-20)
Private Const GWL_STYLE             As Long = (-16)
 
Private Sub Form_Load()
    SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) Or WS_THICKFRAME Or WS_MAXIMIZE Or WS_MAXIMIZEBOX 'Or WS_MINIMIZE  'Or WS_MINIMIZEBOX
    SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_WINDOWEDGE Or WS_EX_APPWINDOW Or WS_EX_DLGMODALFRAME
End Sub

d'oh! :D sorry, when you said "and i can't resize it" i thought you meant you didn't want to. my bad :)

Hell man, I'd had just used a blank icon lol.

Nice code though

Cheat...:D

Just modified my code above so it now contains the correct constants...

Woka