Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Text = "确定"
Dim mFont As Font = New Font(New FontFamily("宋体"), 11, FontStyle.Bold)
Button1.Font = mFont
End Sub
End Class