label vullen met aantal sterren

[keesjee]

Ik ben galgje aan het maken en nu wil ik net zoveel sterren weergeven in de label dan dat het woord dat moet worden geraden lang is. Weet iemand een oplossing hiervoor?

bvd!

Groetjes Kees

 

[rowano]

Gebruik deze Code:

    Dim Woord As String = "Hallo"

    Sub PlaatsSterren()
        Dim Lengte As Long = Woord.Length
        Label1.Text = ""
        For Sterren = 1 To Lengte
            Label1.Text &= "*"
        Next
    End Sub