Public Sub NewPic(ByVal LocX As Integer, ByVal LocY As Integer, ByVal Layer As Integer, ByVal LoadPicture As String, ByVal ImgHeight As Integer, ByVal ImgWidth As Integer, ByVal Initvis As Boolean)
BG(Layer).Location = New Drawing.Point(LocX, LocY)
BG(Layer).Image =...