No Border

I need to make the BorderStyle = 0
no bored but I still need to be able to move the form and to be able when minimized to get down to the taskbar, not to the right...
last thing, how to change the border at runtime
if u put
Me.BorderStyle = 0
'OR
Me.BorderStyle = 1
'nothing is happening?!
how can it be done?
deathman5Asked:
Who is Participating?
 
EDDYKTCommented:
0
 
suttCommented:
The following code enabled moving you mouse by clicking and dragging the form somewhere - useful for non-title-forms...

I think the BorderStyle Property can't be changed at runtime - no news for you...

' put that into a module
'--------------module-code-------------------------------
Declare Function ReleaseCapture Lib "User32" () As Long
Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
'--------------------------------------------------------

'put this into you form's mousemove
'--------------Form_MouseMove-Code-----------------------
 If Button = vbLeftButton Then '< change to vbrightbutton if you want to use right mouse button
    ReleaseCapture
    SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
  End If
'--------------------------------------------------------


regards

sutt
0
 
deathman5Author Commented:
thx everyone, sorry I wasnt able to split the points because they're only 20, sorry but I really dont have alot of pnts
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.