我只有10分了，请朋友们帮帮忙

Question

dim moux,mouy as integer  '声明2个整型变量，用来获取鼠标点击picture1时的做标Private Sub Form_Load()
MouX = 0   '初值
MouY = 0
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As_ Single)
Text1.Left = X                '使text1出现在鼠标点击的位置
Text1.Top = Y
Text1.Visible = True
Text1.SetFocus
MouX = X       ‘获取鼠标在picture1内点击时产生的X和Y做标
MouY = Y
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then           ’如果等于回车那么显示文字
   Picture1.CurrentX = MouX     ’赋予当前X和Y作标
   Picture1.CurrentY = MouY
   Picture1.Print Text1.Text    ’在x,y处显示text1中的文本内容
   Text1.Visible = False
   Text1.Text = ""
End If
End SubPrivate Sub Text1_LostFocus()
Text1.Visible = False
Text1.Text = ""
End Sub
按F5执行后，显示不出在TEXT1中的文本内容，请高手给予指点

Answer 1

picture1的autodrow是不是true 
我运行没问题啊

Answer 2

哦，我仔细看了看你是不是要这个效果
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then           '如果等于回车那么显示文字
   Picture1.CurrentX = Text1.Left    '赋予当前X和Y作标
   Picture1.CurrentY = Text1.Top + Text1.Height
   Picture1.Print Text1.Text    '在x,y处显示text1中的文本内容
   Text1.Visible = False
   Text1.Text = ""
End If
End Sub
Private Sub Text1_LostFocus()
Text1.Visible = False
Text1.Text = ""
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Left = X              '使text1出现在鼠标点击的位置
Text1.Top = Y
Text1.Visible = True
Text1.SetFocus
End Sub

Answer 3

明白，明白，只要把PictureBox的AutoRedraw设为True就OK了