vb中check问题，

用VB编写程序。急！！！！！！！！！！！！

2个控件自己加，代码如下： Private Sub Command1_Click() End End Sub Private Sub Form_Load() With Text1 。 Top = 0 。Left = 0 。Text = "Visual Basic" 。Height = Me。Height / 2 。Width = Me。 Width / 2 End With With Command1 。Top = Me。Height - 。Height 。Left = Me。Width - 。Width 。 Caption = "结束" End With End Sub Priva...全部

  2个控件自己加，代码如下： Private Sub Command1_Click() End End Sub Private Sub Form_Load() With Text1 。
  Top = 0 。Left = 0 。Text = "Visual Basic" 。Height = Me。Height / 2 。Width = Me。
  Width / 2 End With With Command1 。Top = Me。Height - 。Height 。Left = Me。Width - 。Width 。
  Caption = "结束" End With End Sub Private Sub Form_Resize() With Text1 。Top = 0 。Left = 0 。
  Text = "Visual Basic" 。Height = Me。Height / 2 。Width = Me。Width / 2 End With With Command1 。
  Top = Me。Height - 。Height * 2。2 。Left = Me。Width - 。Width * 1。2 End With End Sub。收起