كيف اضيف زر اذا ضغط عليه يضيف في وسط النموذج Textbox او Labe

هذا مثال على إنشاء Label ووضعه في وسط الفورم:

Dim A As Label
Set A = Form1.Controls.Add("vb.label", "Label1")
With A
	.Left = (Me.Width - .Width) / 2
	.Top = (Me.Height - .Height) / 2
	.Visible = True
	.Caption = "Hello World"
End With