怎么在picture控件中添加一个labei控件

设计中就是楼上那种。 要先让图片框获得焦点，才能在它里面画控件。 运行中可以controls.add "vb.label","label1",picture1 '添加新标签到图片框。 转移控件（必须为窗口控件：图片框、用户控件等），标签是图形控件，只有放到图片框或用户控件一起转移。 private declare function SP&lib"user32"alias"SetParent"(byval 句柄&,byval 新父&) 转移：SP picture1.hwnd,form2.hwnd

Private Sub Command1_Click()

Label1.Caption = ""

For i = 1 To Len(Text1)

Label1.Caption = Label1.Caption &Chr(Asc(Mid(Text1, i, 1)) + Len(Text1))

Next

End Sub

Private Sub Command2_Click()

If Label1.Caption = "456" Then

Static b As Boolean

Label2.Caption = IIf(b, "你坏", "你好")

b = Not b

End If

End Sub

---