Modifier un Label dans une fonction Shared

Bonjour à tous.

Mon application doit ouvrir un fichier texte défini, et en extraire des données.
Pour ce faire j'ai pensé à utiliser la fonction sub main() qui ouvre automatiquement mon fichier.

J'appelle donc ma fonction LectureFichier(Fichier) dans le main.
Cette fonction est définie plus haut comme ceci:
public Shared function LectureFichier( ByVal fichier As String) ....

Cette fonction a pour but de modifier des label dans la Form. Malheureusement impossible de le faire avec cette méthode Shared :(.

Avez-vous une solution?

j'espère avoir été clair.
je vous remercie d'avance!

--------------
EDIT: Résolu

Mon problème est finalement réslu.
J'ai bien supprimé les Shared de mes function et les ai remplacé pas des SUB comme me le conseillaient OhMonBato et Aspic.
J'ai appelé mes Sub dans Sub New() après InitializeComponents.
Résultats: je ne sais pas si c'est très propre mais ca fonctionne!

si cette procédure ne te renvoit pas de résultat, tu pourrais en faire une Sub plutôt qu'une fonction.

Code:

---

1 2	Public Sub LectureFichier( ByVal fichier As String)

---

Et autre question ? pourquoi utiliser un Shared dans ton cas ?

Non une sub suffit amplement ;)

Merci Beaucoup OhMonBato et Aspic!
Avec vos corrections, c'est l'appel de ma fonction dans le Main comporte une erreur:

Code:

---

1 2 3 4

Public Shared Sub Main() Dim Form As new Form1 LectureFichier("\My Documents\txt.txt") ' erreur à cette ligne end Sub

---

Et quelle est l'erreur exactement ?

Au passage, essaye de faire un vrai copier/coller de ton code, ça évitera des petites fautes de frappes comme "End sud" au lieu de "End Sub", là ce n'est pas gênant mais ça peut parfois induire les gens en erreur. Si en plus tu peux mettre ton code entre les balises "CODE" (l'icone # au dessus de la zone d'édition du message), ce serait parfait ;)

Merci OhMonBato pour tes conseils précieux!