在vb.net中为文本框创建带有控件用户的浮动窗口

Public Class FloatingForm
    Inherits Form

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.Style = cp.Style Or &H80000
            Return cp
        End Get
    End Property

    Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
        Get
            Return True
        End Get
    End Property
End Class

Private Sub TextBox1_MouseHover(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.MouseHover
    Dim floatingForm As New FloatingForm()
    floatingForm.Controls.Add(New Label() With {.Text = "Hello, world!"})
    floatingForm.Show()
End Sub