''' summary
在新沂等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站设计、成都网站建设 网站设计制作定制网站设计,公司网站建设,企业网站建设,品牌网站制作,网络营销推广,外贸网站建设,新沂网站建设费用合理。
''' 添加多个按钮到一个容器中.
''' /summary
''' param name="StartPos"所有按钮开始点./param
''' param name="ButtonSize"按钮的大小./param
''' param name="ButtonSpace"按钮的间距/param
''' param name="ButtonCount"按钮的总数/param
''' param name="AddingContainer"被添加到的容器/param
''' remarks/remarks
Private Sub AddButtons(ByVal StartPos As Point, ByVal ButtonSize As Size, _
ByVal ButtonSpace As Size, ByVal ButtonCount As Integer, _
ByVal AddingContainer As Control)
Dim mBtnPos As Point = StartPos
For ItemTemp As Integer = 0 To ButtonCount - 1
Dim NewButton As Button = New Button() With
mBtnPos.Y += ButtonSpace.Height + ButtonSize.Height
If mBtnPos.Y AddingContainer.Height Then
mBtnPos.Y = StartPos.Y
mBtnPos.X += ButtonSpace.Width + ButtonSize.Width
End If
NewButton.Text = String.Format(":", CStr(ItemTemp + 1))
AddHandler NewButton.Click, AddressOf btnzh_Click
AddingContainer.Controls.Add(NewButton)
Next
End Sub
Private Sub btnzh_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnzh.Click
Dim ItemCount As Integer = 0
Try
ItemCount = CInt(txtChoice.Text)
Catch ex As Exception
MessageBox.Show("您输入的数字无法解析为数字.")
Return
End Try
AddButtons(New Point(2, 2), New Size(60, 40), New Size(20, 30), ItemCount, Me)
End Sub
Private Sub btnzh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
sub一般情况下是一个英文前缀,有向下的意思,比如subway（地铁） submarine（潜水艇）在计算机中一般是“子……”的意思,比如SubString（子字符串）,SubItems（子项）这儿呢,sub就是指一个“子过程”,一般就简称“过...
RaiseEvent只能在类的定义中用 不能通过实例引用 也就是说Event是由类的开发者封装好的，不允许使用者自己在代码中来引发事件，用户只能编写处理事件的代码（也就是你程序中的Sub EventHandler()和Sub EventHandler1()）
括号里只能传参数，不能传过程和函数，形参的参数类型按需要写，不知道该写啥就不写，但是不写容易出错
你想在过程B内部调用A过程，直接call A就行
