Looking at this:
If MyForm.RufAs.CardOwner = CardOwner.North Then iRufAsOwner = 0
If MyForm.RufAs.CardOwner = CardOwner.East Then iRufAsOwner = 1
If MyForm.RufAs.CardOwner = CardOwner.South Then iRufAsOwner = 2
If MyForm.RufAs.CardOwner = CardOwner.West Then iRufAsOwner = 3
If MyForm.GameModus = GameMode.Solo Then iRufAsOwner = -1
If MyForm.GameModus = GameMode.Wenz Then iRufAsOwner = -1
If
CardOwner.North
is an enum value, then you can shortcut with:
iRufAsOwner = If(MyForm.GameModus = GameMode.Solo OrElse _
MyForm.GameModus = GameMode.Wenz, _
-1, _
MyForm.RufAs.CardOwner)
Or ...
iRufAsOwner = If(MyForm.GameModus = GameMode.Solo OrElse _
MyForm.GameModus = GameMode.Wenz, _
CardOwnerType.Solo, _
MyForm.RufAs.CardOwner)
Where:
Public Enum CardOwnerType
Solo = -1
North
East
South
West
End Enum
Then...
Dim iRufAsOwner as CardOwnerType
iRufAsOwner
is then self-describing, rather than integer values. You can use them as integers if needed for calculations.
As for the game logic, that is your fun, not ours. Enjoy!