List 7-77　FormChkStockフォームのShowWindowプロシージャ

---

  1： Private g_ProductID As Long
  2： 
  3： Public Sub ShowWindow(PRODUCTID As Long, ProductName As String)
  4：     ' このウィンドウを表示する処理
  5：     ' 【引数】
  6：     '   ProductID = 在庫を調べる製品の製品番号
  7：     '   ProductName = 在庫を調べる製品の製品名
  8：     LABEL_PRODUCT.Caption = ProductName
  9：     g_ProductID = PRODUCTID
 10：     TXT_NUM.Text = "0"
 11：     TXT_DATE.Text = ""
 12：     Me.Show 1
 13： End Sub