Affichage d'une 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

Pourquoi atu poster deux fois le meme message, sans doute une erreur bon j'ai repondu a l'autre :
Clique ici
Voila