CRIAR MOVER EXCLUIR MODIFICAR OBJETOS EM RUNTIME

CAJU 18/12/2003 11:09:12
#1502 Resposta escolhida

mover:
obj.move 100

alterar o tamanho
obj.width = 100
obj.height =500

criando
Private WithEvents btnObj As CommandButton
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
End Sub

excluir
Private Sub Command1_Click()
btnObj.Visible = False
Set btnObj = Nothing
End Sub