GroupBox 在 Vb6 的名字是 Frame, 運行時叫 ThunderFrame,
直接畫就可以了

如果要動態加載的話, 可以使用 Controls 集合的 Add 方法添加, Add 方法的語法如下:
Function Add(ProgID As String, pszName As String, pContainer As Object) As Object

對於你的問題,

Private pLabel As Label
Set pLabel = Me.Controls.Add("VB.Label", "myLabel", Frame1)
pLabel.Caption = "這是一個新的 Label 控件"
pLabel.Visible = True

' // 其中 VB.Label 是一個 ProgID, myLabel 是你爲 Label 起的名字, 不要與已經存在的控件的名字有
'衝突, Frame1 就是容器, 即你所指的 GroupBox
'另外, 對於新添加的控件, 要正確的初始化, 默認情況下, Visible 屬性是 False 的, Caption 是空的
'如果要爲新添加的控件編寫代碼, 則要在此模組級別下聲明控件變數, 並且使用 WithEvents 關鍵字,
'例如:
Option Explicit

Private WithEvents pLabel As Label

Private Sub Command1_Click()
Set pLabel = Me.Controls.Add("VB.Label", "myLabel", Frame1)
End Sub

Private Sub pLabel_Click()
MsgBox "pLabel 産生的事件"
End Sub

对其补充一下.测试....



Option Explicit

Private WithEvents pLabel As Label

Private Sub Command1_Click()
Set pLabel = Me.Controls.Add("VB.Label", "myLabel", Frame1)
pLabel.Caption = "這是一個新的 Label 控件"
pLabel.Visible = True

End Sub
Private Sub pLabel_Click()
MsgBox "pLabel 産生的事件"
End Sub

晕,.net的东西到vb里了,呵呵

請問哪裏說的是 .net 的東西.

.net里就叫GroupBox,其他的就不知道罗.