2. CODE:
Public Class frmButtonPlay
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
btn1.Enabled = False
btn2.Enabled = True
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
btn2.Enabled = False
btn1.Enabled = True
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backtoindex.Click
Me.Close()
End Sub
Private Sub frm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btn1.Enabled = True
btn2.Enabled = False
End Sub
End Class
3. Save & Run...
No comments:
Post a Comment