Private Sub CommandButton1_Click()
 Dim cCont As Control
 Dim strControl As String
 
 If ComboBox1.ListIndex > -1 Then
  strControl = "Forms." & ComboBox1 & ".1"
 End If
 
 Set cCont = Me.Controls.Add _
        (strControl, "CopyOf")
 
End Sub
 
Private Sub UserForm_Initialize()
With ComboBox1
        .AddItem "CheckBox"
        .AddItem "CommandButton"
        .AddItem "TextBox"
        .AddItem "ToggleButton"
    End With
End Sub
				
				
			
			
			
			
			
				
Kontrol Eklemek
| Bu Konudaki Yorumlar | 
| 
 Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:03 
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:06 
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:12 
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:17 
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:19 
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:20 
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:23 
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:25 
Cvp: Kontrol Eklemek - Yazar: feraz - 17/01/2020, 22:20 
Cvp: Kontrol Eklemek - Yazar: ozanakkaya - 17/01/2020, 15:27 
Cvp: Kontrol Eklemek - Yazar: accessman - 17/01/2020, 15:35 
Cvp: Kontrol Eklemek - Yazar: feraz - 17/01/2020, 22:25 
Cvp: Kontrol Eklemek - Yazar: accessman - 18/01/2020, 12:08 
 | 
		Konuyu Okuyanlar: 3 Ziyaretçi