Add a message for dealer's turn, also an event to add any message if needed in the future

BlackjackGUI/GameWindow.vb

@@ -59,6 +59,10 @@
         StandButton.Enabled = False
     End Sub
 
+    Private Sub MessageLabel(message) Handles game.MessageLabel
+        WinMessage.Text = message
+    End Sub
+
     Private Sub EndGame(message) Handles game.EndGame
         WinMessage.Text = message
         HitButton.Enabled = False

BlackjackGUI/game.vb

@@ -5,6 +5,7 @@
     Public Event ShowDealerCard(card)
     Public Event EndPlayerTurn()
     Public Event EndGame(winMessage)
+    Public Event MessageLabel(message)
 
     Private player As Player
     Private dealer As Dealer
@@ -108,6 +109,7 @@
 
     Sub DealerTurn()
         GetTotal(dealer)
+        RaiseEvent MessageLabel("Dealer's turn...")
         RaiseEvent EndPlayerTurn()
         RaiseEvent SetTotalLabels(player.total, dealer.total)
         RaiseEvent ShowDealerCard(dealer.hidden)