fixes in gui

VECTO/GUI/VectoJobForm.vb

@@ -449,13 +449,15 @@ Public Class VectoJobForm
 
 		End If
 
-		Dim sb As ICycleData
-		For Each sb In vectoJob.Cycles
-			Dim lv0 As ListViewItem = New ListViewItem
-			lv0.Text = GetRelativePath(sb.CycleData.Source, Path.GetDirectoryName(Path.GetFullPath(file))) 'sb.Name
-			LvCycles.Items.Add(lv0)
-		Next
-
+		Try
+			Dim sb As ICycleData
+			For Each sb In vectoJob.Cycles
+				Dim lv0 As ListViewItem = New ListViewItem
+				lv0.Text = GetRelativePath(sb.CycleData.Source, Path.GetDirectoryName(Path.GetFullPath(file))) 'sb.Name
+				LvCycles.Items.Add(lv0)
+			Next
+		Catch ex As Exception
+		End Try
 		CbEngOnly.Checked = vectoJob.EngineOnlyMode
 
 		If driver.OverSpeedEcoRoll.Mode = DriverMode.EcoRoll Then

VECTO/GUI/VehicleForm.vb

@@ -339,6 +339,7 @@ Public Class VehicleForm
 			End Select
 		End If
 
+		_vehFile = file
 		Dim basePath As String = Path.GetDirectoryName(file)
 		CbCat.SelectedValue = vehicle.VehicleCategory
 		CbAxleConfig.SelectedValue = vehicle.AxleConfiguration
@@ -396,7 +397,7 @@ Public Class VehicleForm
 		VehicleFileBrowser.UpdateHistory(file)
 		Text = GetFilenameWithoutPath(file, True)
 		LbStatus.Text = ""
-		_vehFile = file
+
 		Activate()
 
 		_changed = False