01.
Public
Class
Form1
02.
03.
04.
Private
Sub
Button1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
05.
Registry.SetValue(
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
,
"xx"
,
"xx"
)
06.
Registry.SetValue(
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
,
"xx"
,
"xx"
)
07.
Registry.SetValue(
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
,
"xx"
,
"xx"
)
08.
Registry.SetValue(
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
,
"xx"
,
"xx"
)
09.
MsgBox(
"เปลี่ยนFontเรียบร้อย "
)
10.
11.
12.
End
Sub
13.
14.
15.
Private
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
16.
17.
End
Sub
18.
End
Class