Toolbar

[Motex]

Toolbar?....
Well I want my programs to have their own toolbars...meaning, my own...

Still dont know what Im getting at?
Well the blue bar ontop of every program....i dont want that....i would like to make my own

how would i go by doing that?

_-=Motex=-_

Uhh. what do you mean? Toolbar or Titlebar or both?

[parksie]

Set the form's caption to "" and the ControlBox property to False. Then, you can use your own titlebar.

Public Declare Function ReleaseCapture Lib "user32" () As Long
Public 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 Sub FormDrag(frm As Form)
ReleaseCapture
Call SendMessage(frm.hwnd, 161, 2, 0&)
End Sub

when you want to use put

Call FormDrag(Me)

put it in the MouseDown Event of almost anything(label, cmd button, form, etc)

that lets you drag a form without a title bar

[parksie]

Yep. Just before you posted I'd put that into my small example project. It now resizes properly, and handles the control buttons. It doesn't popup the system menu yet, but if anyone knows how, it'll be very welcome.

[parksie]

Here's a very rough example, which demonstrates right alignment of the title, since it's the same example I'm using for another thread:
http://www.parksie.uklinux.net/newtitle.zip

A little different from the code Dennis gave, not using api:

'Label1 is your titlebar

Dim oldX As Long, oldY As Long, isMoving As Boolean

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldX = X
oldY = Y
isMoving = True
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isMoving Then
    Me.Top = Me.Top - (oldY - Y)
    Me.Left = Me.Left - (oldX - X)
End If
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
isMoving = False
End Sub