Я бы посоветовал вам попытаться извлечь различные атрибуты, которыми может обладать монстр. Думай Топ-Трампс ...
Затем вы можете создать один класс Monster, каждый атрибут которого представлен свойством / полем.
Что-то вроде
Class Monster
Public Name as String
Public Filename as String ' Location of graphics file on disk
Public Strength as Integer
Public Speed as Integer
Public Sub New(Name as String, Filename as String, Strength as Integer, Speed as Integer)
Me.Name = Name
Me.Filename = Filename
Me.Strength = Strength
Me.Speed = Speed
End Sub
End Class
Тогда вы сможете создавать таких монстров.
Dim Monster1 as New Monster("monster1", "C:\Graphic1.jpg", 50, 10)
Dim Monster2 as New Monster("monster2", "C:\Graphic2.jpg", 1, 100)
Dim Monster3 as New Monster("monster3", "C:\Graphic3.jpg", 60, 17)
но вам не нужно каждый раз создавать новое «Окно».
Точно так же вы сможете получать данные о «монстрах» из других мест, например, из базы данных.