รบกวนสอบถามหน่อยนะครับคืออยากทราบว่าจะทำให้ Dialog show ในตำแหน่งใกล้เคียงกับที่เราคลิกต้องทำไงครับ

   Me.Cursor = New Cursor(Cursor.Current.Handle)
   Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y - 50)
   Cursor.Clip = New Rectangle(Me.Location, Me.Size)

Dim frm As New MyForm()
frm.StartPosition = FormStartPosition.Manual
frm.Location = New Point(10, 10)
frm.ShowDialog()