计算机作业

今天学的是添加动态按钮，就是点击按钮并且生成一个按钮：

  Dim   Withevents

   Dim muyxommand  As VB.Command  Button

  Private Sub Command1_Click

   

 Set mycommand=Me.Controls.Add("  VB.Command  Button",  " cmdNew"  &  b)

  myxommand.Move.Me.Command(  Left-1500.Right-800)

 

mycommand.Visible=True

 

Private  Sub  mycommand1_Click

 Private  "Hay"