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
   30   31   32   33   34   35   36   37   38   39   40