虽然VB自带有“关于窗体”的代码模块，但其界面不够美观，要想创建比较美观的、具有自己的设计风格的“关于窗体”，下面就和我一起来做吧：
1. 启动VB，创建一个“标准 EXE”工程。
2. 在工程中添加两个窗体Form1和Form2，Form1将作为主窗体，Form2将作为关于窗体，将两个窗体的StartUpPosition属性设置为“2 - 屏幕中心”。在窗体Form1上建立两个CommandButton按钮，Caption属性分别为“关于”和“退出”，设置窗体Form1的Caption属性为“My Program”(可为任意文字)。在窗体Form2上建立一个PictureBox图形框、两个Label标签和一个Timer控件，并设置窗体Form2的BorderStyle属性为“0 - None”，BackColor属性为任意颜色，PictureBox1的Picture属性为合适的图形文件，Lable标签的Caption属性为任意文字、AutoSize属性为“True”，Timer1的Interval属性为“500”。然后调整各控件的位置如图
所示。
3. 在窗体Form1的代码窗口中添加代码如下（'后为注释)：
Private Sub Command1_Click()
Form2.Show '显示关于窗体
End Sub
Private Sub Command2_Click()
End '强制结束程序
End Sub
Private Sub Form_Unload(Cancel As Integer)
End '关闭本窗体时强制退出程序
End Sub
4. 在窗体Form2的代码窗口中添加代码如下：
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long,ByVal_
Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal_
hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Click()
ClickAng '单击窗体时调用ClickAng事件
End Sub
Private Sub Label1_Click()
ClickAng '同上
End Sub
Private Sub Picture1_Click()
ClickAng '同上
End Sub
Private Sub Form_Load()
Label1.BackColor = Me.BackColor '设置Label1标签的背景色与窗体的背景色相同
Show
SetWindowRgn hwnd, CreateEllipticRgn(0, 0, 400, 200), True '创建以顶距离和
左边距为0、宽为300、高为200的椭圆形窗体
End Sub
Private Sub ClickAng()
Unload Me '单击鼠标时关闭本窗体
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '窗体载入时实现
Label1控件的文字变色
End Sub
好了，现在你就可以按“F5”键运行了，怎么样？对自己设计的窗体还满意吧？如此美观的窗体只需简单的几行代码就能实现，是不是很酷？如果你在以上的程序代码上稍加修改，定能做出不凡的效果。
以上程序在中文版VB6.0和中文版Windows98 SE、Windows Me/2000中调试通过。
source-02.zip
文学作品 