Public Class How
#Region "Variablen"
    'Deklerationen
    Private m_Cursor As Cursor
    Private m_Text As String
    Private m_Number As Integer
    Private m_DoResize As Boolean = True
    Private m_X As Integer
    Private m_Y As Integer
    Private m_w As Integer
    Private m_h As Integer
#End Region
    Property DoResize() As Boolean
        Get
            Return m_DoResize
        End Get
        Set(ByVal value As Boolean)
            m_DoResize = value
        End Set
    End Property
    Property w() As Integer
        Get
            Return m_w
        End Get
        Set(ByVal value As Integer)
            m_w = value
        End Set
    End Property
    Property h() As Integer
        Get
            Return m_h
        End Get
        Set(ByVal value As Integer)
            m_h = value
        End Set
    End Property
    Property X() As Integer
        Get
            Return m_X
        End Get
        Set(ByVal value As Integer)
            m_X = value
            w = -value
        End Set
    End Property
    Property Y() As Integer
        Get
            Return m_Y
        End Get
        Set(ByVal value As Integer)
            m_Y = value
            h = -value
        End Set
    End Property
    Property Cursor() As Cursor
        Get
            Return m_Cursor
        End Get
        Set(ByVal value As Cursor)
            m_Cursor = value
        End Set
    End Property
    Property Text() As String
        Get
            Return m_Text
        End Get
        Set(ByVal value As String)
            m_Text = value
        End Set
    End Property
    Property Number() As Integer
        Get
            Return m_Number
        End Get
        Set(ByVal value As Integer)
            m_Number = value
        End Set
    End Property
End Class
'Das hier kommt in das Formular mit dem Panel(Panel1)
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        Dim rs As New Resized
        Dim hw As How = rs.WhereIs(e.Location, Panel1, 10)
        Me.Text = hw.Text
        Panel1.Cursor = hw.Cursor
        If e.Button = Windows.Forms.MouseButtons.Left Then
 
            If hw.DoResize = True Then
 
                Panel1.Width += hw.X
                Panel1.Height += hw.Y
                Panel1.Left += hw.w
                Panel1.Top += hw.h
            End If
        End If
    End Sub