Public Class Form1
 
    Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseEnter
        Dim p As Point = Cursor.Position
        Form2.StartPosition = FormStartPosition.Manual
        Form2.Location = p
        Form2.Show()
    End Sub
    Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseLeave
        Form2.Close()
    End Sub
    Private Sub Picturebox1_MouseEnter(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles PictureBox1.MouseEnter
        Dim p As Point = Cursor.Position
        Form2.StartPosition = FormStartPosition.Manual
        Form2.Location = p
        Form2.Show()
    End Sub
    Private Sub Picturebox1_MouseLeave(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles PictureBox1.MouseLeave
        Form2.Close()
    End Sub
End Class