Private WithEvents b As Line
Private Sub Form_Load()
Set b = Controls.Add("VB.line", "b")
b.Visible = True
b.X1 = 1
b.Y1 = 1
b.X2 = 1000
b.Y2 = 1000
Set b.Container = Picture1
Set t = Controls.Add("vb.textbox", "t")
t.Height = 200
t.Width = 320
t.Visible = TrueEnd Sub
Private Sub Form_Load()
Set b = Controls.Add("VB.line", "b")
b.Visible = True
b.X1 = 1
b.Y1 = 1
b.X2 = 1000
b.Y2 = 1000
Set b.Container = Picture1
Set t = Controls.Add("vb.textbox", "t")
t.Height = 200
t.Width = 320
t.Visible = TrueEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货