Public Class MoveLabel
 
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
      ByVal hwnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal _
      lParam 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
 
    Private _Text As String = "Neues Label"
 
    ''' <summary>
    ''' Beschriftung des Labels
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ''' 
    Public Property Caption() As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
            Me.Invalidate()
        End Set
    End Property
 
    Private Sub MoveLabel_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Me.AutoSize = True
    End Sub
 
    Private Sub MoveLabel_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End Sub
 
    Private Sub MoveLabel_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawString(_Text, Me.Font, New SolidBrush(Me.ForeColor), 0, _
        0)
        If Me.AutoSize Then Me.Size = e.Graphics.MeasureString(_Text, Me.Font, _
        Drawing.Size.Empty).ToSize
        e.Dispose()
    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