hmmm warum deklarierst Du es als Private Function? Deine Funktion gibt keinen Wert zurück! Du müsstest eigentlich eine Warnung bekommen. In deinem Fall so wie es jetzt ist reicht es als Private Sub!
Hier mal ein Bsp. zur Funktion
Deklaration:
Private Function Rechnen(ByVal x as Integer, ByVal y as Integer) as Integer
Return x + y
End Function
Aufruf:
Ergebnis = Rechnen(2, 9)
In der Variablen Ergebnis steht der Rückgabewert der Funktion Rechnen also 2 + 9 = 11
Also Funtionen werden nur verwendet wenn man Werte der Funktion übergibt
und einen Wert mit
Return zurückgibt.
Braucht man eine Sub der man nur Werte übergibt oder die nur etwas ausführt aber
nichts zurück gibt dann verwendet man
Private Sub,
Public Sub oder nur
Sub
Sub Label_löschen()
label1.text = ""
End Sub
Sub Label_Füllen(ByVal ÜbergebenerText as String)
label1.Text = ÜbergebenerText
End Sub
Falsch:
Private Function Label_Füllen(ByVal ÜbergebenerText as String)
label1.Text = ÜbergebenerText
End Sub
Richtig:
Private Function Label_Füllen(ByVal ÜbergebenerText as String) as String
Return ÜbergebenerText
End Sub
Das mal so als Info. Bei deinem Problem kann ich dir leider nicht helfen aber schaue doch mal hier
http://forum.vb-paradise.de/ ist echt super Forum für so sachen.