home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 January / PCPRO_JAN96.ISO / code / vb / aftrclck.txt < prev    next >
Encoding:
Text File  |  1995-11-01  |  335 b   |  10 lines
  1. Public Sub AfterClick()
  2. Dim AllFormControls As VBIDE.ControlTemplate
  3. For Each AllFormControls In ThisInstance.ActiveProject.ActiveForm.ControlTemplates
  4.    If AllFormControls.ClassName = "VB.CommandButton" Then
  5.        AllFormControls.Properties!Height = 700
  6.        AllFormControls.Properties!Width = 700
  7.    End If
  8. Next
  9. End Sub
  10.