Metiendola en un Namespace y enlazando con librerias si fuese necesario. Una clase tiene sus atributos,  su contrusctores (uno por defecto New()) y las propertys de acceso y modificacion.

Public Class PKSiniestro

Private _Id As Integer
Private _IdSolicitud As Integer

Public Sub New()
Me._Id = 0
Me._IdSolicitud = 0
End Sub

Public Sub New(ByVal Id As Integer, ByVal IdSolicitud As Integer)
Me._Id = Id
Me._IdSolicitud = IdSolicitud
End Sub

Public Property Id()
Get
Return _Id
End Get
Set(ByVal value)
_Id = value
End Set
End Property

Public Property IdSolicitud()
Get
Return _IdSolicitud
End Get
Set(ByVal value)
_IdSolicitud = value
End Set
End Property

End Class