Enkel fråga.
Funkar min VB6 kod på 2010 .

Tycker koden här under bara är för djä... mycket för att addera något med ett till hundra.
Kvallificerat djä.. trams.
En knapp har ett Event som är självklart "Click"
Varför i hekvete krångla.
Tomas Granlund jag för väntar mig ett intelligent svar

Option Explicit
Dim Ctal As Long
Private Sub Form_Load()
Ctal = 100
End Sub
Private Sub Command1_Click()
Ctal = Ctal + 1
Label1.Caption = Ctal
End Sub

Om det nu är sånt djävla trams, varför envisas du med att hålla på med det?

Option Explicit On ' Eller så sätter du detta i project properties istället, så gäller det för alla kodfiler
Public Class Form2
	Private Ctal As Long
	' Du måste kroka på eventhanteringen explicit, det räcker inte att metoden råkar ha namnet "Form_Load"
	Private Sub Form_Load() Handles MyBase.Load
		Ctal = 100
	End Sub
	Private Sub Button1_Click() Handles Button1.Click
		Ctal = Ctal + 1
		Label1.Text = Ctal ' Labels har numer en Text-property istället för Caption
	End Sub
End Class

Bara en massa extra trams som inte fyller nån vettig funktion.
Gamla hederliga VB6 med sina uppgraderingar fungera helt utmärkt med snabb och rak kod.
Så min kod ova kommer inte att funka !?

Nej, det kommer inte ens gå att kompilera, eftersom det inte finns någon Caption-property på Labels.

<eftersom det inte finns någon Caption-property på Labels.>
Kan jag väl köpa fast att det bara trams att ändra för ändrandets egen skull.
Fyller ingen vettig funktion.
Text skriver man i en TextBox.
I en Label (Etikett) kan man inte skriva direkt. Man tillägnar ett infovärde av något slag Rubrik infotext mm .
Därför var Caption (Headline) ett bra sätt att markera skillnaden.

Det kommer sig av att Label (liksom Button, MenuItem, m.m.), ärver av basklassen Control, som har en Text-property. En av de vettiga finesserna (jo, de finns faktiskt -- det hela är inte en enda stor konspiration bara för att jävlas med gamla vb6-rävar) med det är att det t.ex. går att göra:

For Each ctrl As Control In Controls
	ctrl.Text = GetTranslatedTextFor(ctrl.Name)
Next

For Each ctrl As Object In Controls
	If TypeOf ctrl Is TextBox Then
		Dim a1 As DirectCast(ctrl, TextBox)
		a1.Text = GetTranslatedTextFor(a1.Name)
	ElseIf TypeOf ctrl Is Button Then
		Dim a2 As DirectCast(ctrl, Button)
		a2.Caption = GetTranslatedTextFor(a2.Name)
	ElseIf TypeOf ctrl Is NånAnnanKonstigTyp Then
		Dim a3 As DirectCast(ctrl, NånAnnanKonstigTyp)
		a3.Content = GetTranslatedTextFor(a3.Name)
	End If
Next