Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim font As New FontDialog font.ShowDialog() Label1.Font = font.Font End Sub