VB 6 Динамичный Контрол С Нулевым индексом - VB

Формулировка задачи:

Данный код создает кнопку но без Индекса 0 как создать для него Array т.е чтобы он создался с индексом 0 ? Т.е имел Array Я хочу создать Winsock контрол с именем Server и индексом 0 помогите исправить код
Option Explicit
'
Dim WithEvents Cmd1 As CommandButton
'
Private Sub Form_Load()
Set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1")
Cmd1.Width = 2000
Cmd1.Top = Me.Height / 2 - Cmd1.Height / 2 - 100
Cmd1.Left = Me.Width / 2 - Cmd1.Width / 2 - 100
Cmd1.Caption = "Dynamic Button"
Cmd1.Visible = True
End Sub
'
Private Sub Cmd1_click()
MsgBox "I have been Created Dynamically at Run-time", _
, "Dynamic Controls"
MsgBox Cmd1(Index)
End Sub

Код к задаче: «VB 6 Динамичный Контрол С Нулевым индексом - VB»

textual
Set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1")
Cmd1(0).Width = 2000
Cmd1(0).Top = Me.Height / 2 - Cmd1(0).Height / 2 - 100
Cmd1(0).Left = Me.Width / 2 - Cmd1(0).Width / 2 - 100
Cmd1(0).Caption = "Dynamic Button"
Cmd1(0).Visible = True
 
Так тоже не работает
Set Cmd1(0) = Controls.Add("vb.commandbutton", "Cmd1(0)")
Cmd1(0).Width = 2000
Cmd1(0).Top = Me.Height / 2 - Cmd1(0).Height / 2 - 100
Cmd1(0).Left = Me.Width / 2 - Cmd1(0).Width / 2 - 100
Cmd1(0).Caption = "Dynamic Button"
Cmd1(0).Visible = True

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ