升级后的部分代码：
Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
会报警告，VB6.PixelsToTwipsX；VB6.PixelsToTwipsY
警告 如何消除
------解决方案--------------------
VB6
Private Sub Form1_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
参数：eventArgs
eventArgs.X
eventArgs.Y
VB.NET
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
参数：e
e.Location
e.Location.X
e.Location.Y