Public Class Form1
 
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
      ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal _
      lParam As Int32) As Int32
    Private Declare Function DrawCaption Lib "user32.dll" (ByVal hWnd As Int32, _
    ByVal hDC As Int32, ByRef pcRect As Rect, ByVal un As Int32) As Int32
    Private Declare Function SetRect Lib "user32.dll" (ByRef lpRect As RECT, _
    ByVal X1 As Int32, ByVal Y1 As Int32, ByVal X2 As Int32, ByVal Y2 As Int32) _
    As Int32
    Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32
    Private Const WM_NCLBUTTONDOWN As Int32 = &HA1
    Private Const HTCAPTION As Int32 = 2
 
    <Runtime.InteropServices.StructLayout( _
      Runtime.InteropServices.LayoutKind.Sequential)> _
    Private Structure RECT
        Public Left As Int32
        Public Top As Int32
        Public Right As Int32
        Public Bottom As Int32
    End Structure
 
    'Höhe und Farbe Ihrer eigenen Titelleiste
    Const tbarWidth As Integer = 20
    Const tbarColor As Integer = &H29
 
    Dim r As RECT
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left And e.Y < tbarWidth Then
            ReleaseCapture()
            SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load, Me.Resize
 
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        SetRect(r, 0, 0, Me.Width, tbarWidth)
        DrawCaption(Me.Handle.ToInt32, Me.CreateGraphics.GetHdc.ToInt32, r, _
          tbarColor)
    End Sub
 
End Class

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co