VB.net中设置背景图案

    '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