Behöver reseta variablerna så de är precis som när programmet startar.
Har provat med Nothing men det hjälper inte eftersom variabler behåller
värden ändå från olika håll.

Det enda som hjälpt är Application.Restart() men det ser klumpigt ut.
Starta om formen också.

Finns det något smidigt sätt att återställa variabler som de var
när programmet startade.

Tack på förhand
Lasse

Visual Basic 2010

Ett sätt är att lägga all beräkningslogik, variabler etc. i en separat klass(-struktur). När du vill återställa till ursprungsläget initierar du helt sonika nya instanser av klasserna i fråga.

Public Class Form3
	' Denna klass bör inte ha några fler "nollställningsbara" variabler än _model.
	Private _model As Incrementer

	Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		GenerateNewModel()
	End Sub

	Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
		AddOne()
	End Sub

	Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
		GenerateNewModel()
	End Sub

	Private Sub GenerateNewModel()
		' Ut med det gamla, in med det nya
		_model = New Incrementer(100)
		txtValue.Text = _model.Value
	End Sub

	Private Sub AddOne()
		_model.Add(1)
		txtValue.Text = _model.Value
	End Sub
End Class

Protected Class Incrementer
	Private _value As Integer
	' Här kan du lägga allsköns bråte som ska gå att nollställa

	Public Sub New(initialValue As Integer)
		_value = initialValue
	End Sub

	Public Sub Add(number As Integer)
		_value += number
	End Sub

	Public ReadOnly Property Value As Integer
		Get
			Return _value
		End Get
	End Property
End Class