Comment faire Refresh au Form

Bonsoir Forum
Bonsoir tout le monde
SVP si vous pouvez m'aider a faire refresh au Form1 .
Dans mon projet j'ai Form1 et plusieurs Text et plusieurs Combo et Command1.
Lorsque je click sur Command1 alors ces Text et Combo seront vides.
J'ai essaye avec :

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click()   Form1.Hide Form1.Show   End Sub

---

J'ai essaye aussi avec :

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click()   Unload Me Form1.Show   End Sub

---

Mais malheureusement pas de solution
Merci beaucoup d"avance pour l'aide
Cordialement
MADA

Salut

Pour le cas de beaucoup de contrôles

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Command1_Click() Dim MeControl As Control For Each MeControl In Form1.Controls Select Case TypeName(MeControl) Case "TextBox": MeControl.Text = "" ' tous les contrôles TextBox sont vidées Case "ComboBox", "ListBox": MeControl.Clear ' tous les contrôles ComboBox et ListBox sont vidées Case "Label": MeControl.Caption = "" ' tous ...... Case "CheckBox": MeControl.Value = 0 ' tous les CheckBox sont décochés Case "OptionButton": MeControl.Value = False ' tous les OptionButton sont désélectionnés End Select Next End Sub

---

Pour le cas de peu de contrôles

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" ComboBox1.Clear End Sub

---

Bonjour ProgElecT
Merci beaucoup pour l'aide
Merci pour vos impeccables codes
Parfaitement resolu
Cordialement
MADA