Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox2.Text = "" Then
            MsgBox("Enter a valid numeral!", MsgBoxStyle.Critical, "")
        Else
            FlashGame.SetVariable("ninja.health", TextBox2.Text)
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Enter a valid numeral!", MsgBoxStyle.Critical, "")
        Else
            FlashGame.SetVariable("ninja.livesRemaining", TextBox1.Text)
        End If
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) = False Then
            SendKeys.Send("{BACKSPACE}")
        ElseIf TextBox1.Text.Contains("-") Then
            SendKeys.Send("{BACKSPACE}")
        End If
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If IsNumeric(TextBox2.Text) = False Then
            SendKeys.Send("{BACKSPACE}")
        ElseIf TextBox2.Text.Contains("-") Then
            SendKeys.Send("{BACKSPACE}")
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FlashGame.Movie = "http://www.miniclip.com/games/samurai-sam/en/samuraisam.swf?mc_gamename=Samurai+Sam&mc_hsname=1600&mc_shockwave=0&mc_scoreistime=0&mc_lowscore=0&mc_negativescore=0&mc_icon=samuraisamsmallicon.jpg&mc_players_site=1&mc_gameUrl=%2Fgames%2Fsamurai-sam%2Fen%2F&mc_sessid=cki1213ddv6d2bevsheikq0rc0&mc_v2=0"
        FlashGame.Playing = True
    End Sub
End Class