We are Adding  all type of Important FAQ relating to IT people For the Interview

Create Controls Dynamically (VB6)
 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"�

End Sub

 

If You want More  FAQ-   

[email protected]

[email protected]