'imageを表示する方法
If Dir(Application.StartupPath & "/" & gInt_PID & ".bmp").Trim = "" Then
MsgBox("相応イメージが有りません")
ElseIf Dir(Application.StartupPath & "/" & gInt_PID & ".bmp").Trim <> "" Then
If Not IsNothing(Frm_PicIns) Then
If Not Frm_PicIns.IsDisposed Then
Frm_PicIns.Close()
End If
End If
Frm_PicIns = New Frm_Pic
Frm_PicIns.Show()
Frm_PicIns.BackgroundImage = Image.FromFile(Application.StartupPath & "/" & gInt_PID & ".bmp")
End If