Classe

[creko]

bom pessoal como eu posso colocar uma função em uma classe para usa-la em todos frm ? o codigo seria esse !

Dim obj As Control
For Each obj In Me.Controls
If TypeOf obj Is TextBox Then obj.Text = ""
If TypeOf obj Is ComboBox Then obj.Clear
Next

abraço

[Graymalkin]

Você pode fazer assim:

public sub Limpa(byref janela as form)
  Dim obj As Control
  For Each obj In janela.Controls
    If TypeOf obj Is TextBox Then obj.Text = ""
    If TypeOf obj Is ComboBox Then obj.Clear
  Next
end sub

Certo?

Abraços,

Graymalkin

[creko]

Mas ele está dando erro

argumento não optcional

o que será que estou fazendo de erro ?

eu estou chamando

Limpa

já tentei

Limpa()

e não deu

abraço

[Graymalkin]

Mas ele está dando erro

argumento não optcional

o que será que estou fazendo de erro ?

eu estou chamando

Limpa

já tentei

Limpa()

e não deu

abraço

Você tem que chamar assim:

Limpa nomedoform

Ou:

Limpa Me

Abraços,

Graymalkin