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