Dim label As TextBox
Dim label1 As label
Private Sub Form_Load()
Set label = Me.Controls.Add("vb.textbox", "sdddd")
Set label1 = Me.Controls.Add("vb.label", "aaa")
label1.Visible = True
label1.Caption = "FFF"
label.Visible = True
label.Text = ""
label.Top = 200
label.Left = 200
End Sub
Dim label1 As label
Private Sub Form_Load()
Set label = Me.Controls.Add("vb.textbox", "sdddd")
Set label1 = Me.Controls.Add("vb.label", "aaa")
label1.Visible = True
label1.Caption = "FFF"
label.Visible = True
label.Text = ""
label.Top = 200
label.Left = 200
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货