Не пойму, что за ошибка и что делать?

[Genna]

Друзья опять я обращаюсь к Вам с вопросом. Написал программку на VB2005, в отладочном режиме работает ни каких проблем, а вот после компиляции исполняемый файл может проработать пять минут, может десять, но потом всё равно выдаёт ошибку. Не пойму в чём проблема. Ошибка выглядит так: Unhandled exception has occurred in your application. If you click
Continue, the application will ignore this error and attempt to continue. If
you click Quit, the application will close immediately.
Parameter is not valid.

детально:

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.ArgumentException: Parameter is not valid.
at System.Drawing.Font.CreateNativeFont()
at System.Drawing.Font.Initialize(FontFamily family, Single emSize, FontStyle style, GraphicsUnit unit, Byte gdiCharSet, Boolean gdiVerticalFont)
at System.Drawing.Font..ctor(FontFamily family, Single emSize, FontStyle style)
at Chas.Form1.Fon_Paint(Object sender, PaintEventArgs e) in C:\Documents and Settings\gena\Мои документы\Visual Studio 2005\Projects\Chas\Chas\Form1.vb:line 152
at System.Windows.Forms.Control.OnPaint(PaintEventArgs e)
at System.Windows.Forms.PictureBox.OnPaint(PaintEventArgs pe)
at System.Windows.Forms.Control.PaintWithErrorHandling(PaintEventArgs e, Int16 layer, Boolean disposeEventArgs)
at System.Windows.Forms.Control.WmPaint(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Loaded Assemblies **************
mscorlib
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
Chas
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///C:/Documents%20and%20Settings/gena/Мои%20документы/Visual%20Studio%202005/Projects/Chas/Chas/obj/Release/Chas.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 8.0.0.0
Win32 Version: 8.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

[Genna]

добовляю процедуру Form1.Fon_Paint, ошибка видать здесь?

Private Sub Fon_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Fon.Paint
Dim count As Integer = 0
Dim familyName As String = ""
Dim fontFamilies() As FontFamily
Dim private_FontColl As New PrivateFontCollection

private_FontColl.AddFontFile("C:\Documents and Settings\gena\Мои документы\Visual Studio 2005\Projects\Chas\Chas\Resources\DS Crystal.ttf")

fontFamilies = private_FontColl.Families

count = fontFamilies.Length

familyName = fontFamilies(0).Name

Dim ff As FontFamily = New FontFamily(familyName, private_FontColl)

Dim has As String
Dim dat As String
Dim nedel As String
Dim sek As String
Dim min As String
sek = Format(TimeOfDay, "ss")
min = Format(TimeOfDay, "mm")
has = Format(TimeOfDay, "HH")
dat = Format(DateTime.Today, "dd MMMM yyyy")
nedel = Format(DateTime.Today, "dddd")
Dim sb As New SolidBrush(Color.FromArgb(80, 128, 128, 128))
Dim bb As New SolidBrush(Color.FromArgb(200, 20, 20, 20))
Dim f As New Font(ff, 20, FontStyle.Regular) ' строка немер 152
Dim fMin As New Font(ff, 36, FontStyle.Regular)
Dim fDat As New Font(ff, 10, FontStyle.Regular)
Dim fnedel As New Font("Tahoma", 10, FontStyle.Regular)
Dim g As Graphics = e.Graphics
g.DrawString(sek, f, sb, 120, 30)
g.DrawString(sek, f, bb, 118, 28 )
g.DrawString(min, fMin, sb, 64, 12)
g.DrawString(min, fMin, bb, 61, 9)
g.DrawString(has, fMin, sb, 13, 12)
g.DrawString(has, fMin, bb, 10, 9)
g.DrawString(dat, fDat, sb, 40, 61)
g.DrawString(dat, fDat, bb, 38, 59)
g.DrawString(nedel, fnedel, sb, 40, 75)
g.DrawString(nedel, fnedel, bb, 38, 73)
Dim txSek As String
txSek = CStr(sek)
Dim txMin As String
txMin = CStr(min)
If boiVkl.Checked = True Then
If txSek = "00" And txMin = "00" Then
My.Computer.Audio.Play("C:\Documents and Settings\gena\Мои документы\Visual Studio 2005\Projects\Chas\Chas\Resources\24415wav.wav")
End If
If txSek = "00" And txMin = "30" Then
My.Computer.Audio.Play("C:\Documents and Settings\gena\Мои документы\Visual Studio 2005\Projects\Chas\Chas\Resources\24415wav.wav")
End If
End If


End Sub

[Viper]

Не просто здесь, а в строке 152. Которая строка имеет такой нумер?

[Genna]

строка номер 152.

Dim f As New Font(ff, 20, FontStyle.Regular)

[Ramzes]

проверь, у тя объект ff нигде в коде не убивается (возможно сборщиком мусора)

[Viper]

вроде негде ему убится то... Но проблема явно в объекте ff. Больше некому... Разве что параметр FontStyle.Regular в данном случае некорректен или размер 20... Но это предположение из области бреда

[Sebas]

отдели DIM от создания объектов.
Походу, у тебя FF ещё не создался.

нехороший код, создание объекта в декларации со ссылкой на объект созаваемый подобным способом.

[Genna]

Спасибо Всем кто откликнулся! Код действительно нехороший, но если Вы заметили я из начинающих, так что не судите строго. Просто намешал здесь всего, вот и не работает.
На самом деле объект ff это не причина, а следствие, ведь в отладочном режиме работает без проблем. Ладно переделаю программу сначала, попробую аккуратно.