Ob de Form au démarrage

J'ai une question toute bete. J'ai le programme suivant :
Private Sub Form_Load()
Call test
End Sub

Public Function test()
Form1.Show
For C = 1 To 30000
text_barre.Text = C
text_barre.Refresh
Next
End
End Function

En l'exécutant, la couleur du fond reste blanc ou transparent alors que ça devait etre gris. Et le plus gênant, c'est quand on déplace la fenêtre pendant l'éxécution, il n'y a plus de rafraichissement de "text_barre.Text = C".
Pourriez vous m'aider ?
Merci

Change le code pâr celui la :
dans un module fait :

Public Function test() Form1.Show For c = 1 To 30000 Form1.text_barre.Text = c Form1.text_barre.Refresh Form1.Refresh Next c End End Function

et dans la form_load pareil

Call test

Voila