Thanks in advance for any insight.
Public Class hangMan
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim word As New Random
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub enterTxtBtn_TextChanged(sender As System.Object, e As System.EventArgs) Handles enterTxtBtn.TextChanged
End Sub
Private Sub getWordBtn_Click(sender As System.Object, e As System.EventArgs) Handles getWordBtn.Click
Dim lines As String()
If My.Computer.FileSystem.FileExists("Words.txt") Then
My.Computer.FileSystem.ReadAllText("Words.txt")
(Text as new Random)
End If
End Sub
Private Sub NewGameToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NewGameToolStripMenuItem.Click
End Sub
Private Sub OvalShape1_Click(sender As System.Object, e As System.EventArgs) Handles OvalShape1.Click
End Sub
End Class

New Topic/Question
Reply




MultiQuote








|