Page 35 - Programming VB.NET
P. 35
Code With VB.Net 31
Private Sub mnufont_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
dlgfont.ShowDialog()
lbldisplay.Font = dlgfont.Font
End Sub
Private Sub mnuinput_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles mnuinput.Click
lblinput.Text = InputBox("What is your name",
"BIODATA")
End Sub