' ************************************************************
'  フォームの位置をデスクトップの中央に移動
' ************************************************************
Public Function ISCenterWindow(objForm As Form)

	objForm.Left = (Screen.Width - objForm.Width) / 2
	objForm.Top = (Screen.Height - objForm.Height) / 2

End Function

' ************************************************************
'  カーソルの砂時計の ON と OFF
' ************************************************************
Public Function ISWaitCursor(objForm As Form, bFlg As Boolean)

	If bFlg Then
		objForm.MousePointer = 11
	Else
		objForm.MousePointer = 0
	End If
	objForm.Refresh

End Function