如何动态添加控件?

[CZCG]

例如:动态添加一个PICTURE控件应该如何添加?

[华芸智森]

'在窗体上放一个PICTUREBOX 名称:Picture1
'一个按钮: 名称 Command1

Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal HwndChild As Long, ByVal HWndNewParent As Long) As Long
Dim WithEvents NewCommand As CommandButton

Private Sub Command1_Click()
If NewCommand Is Nothing Then
Set NewCommand = Controls.Add("VB.CommandButton", "CommandAdd", Me)
NewCommand.Caption = "ADFASDF"
SetParent NewCommand.hWnd, Picture1.hWnd
NewCommand.Move 100, 100
NewCommand.Visible = True
End If
End Sub

Private Sub NewCommand_Click()
MsgBox NewCommand.Caption
End Sub