Namespace My
''' <summary>
''' MyApplication
''' </summary>
''' <remarks>MyApplicationクラス</remarks>
''' <history>
''' []2011/11/01Created
''' </history>
Partial Friend Class MyApplication

Protected Overrides Sub OnCreateMainForm()

Try
'Configファイルからシステムの情報を保存する
Configuration.PSb_SaveSystemInfo()

'起動画面を選択する
If Utility.PFn_NullToString(Configuration.PSb_GetTestWindowFlg()).Equals("1") Then
Me.MainForm = Global.GRP.TestForm
Else
Me.MainForm = Global.GRP.メインメニュー_Flash
End If

Catch ex As Exception
'LOGファイルを出力する
Global.GRP.Utility.PSb_WriteLOGFile(3,ex.Message)

Me.MainForm = Global.GRP.メインメニュー_Gif End Try End Sub End Class End Namespace