从VB6过来的人都知道可以在窗体上打印输出文字，但这招vbnet中就不管用了，但还是能用，下面代码就实现了这个功能。
	
	Dim g As Graphics = Me.CreateGraphics
    g.DrawString("VBNET", Me.Font, Brushes.Black, 0, 0)
    g.Dispose()

目录
 
一、窗体设计
 
1、窗体设计分类
 
2、窗体常用属性
 
设置窗体背景图片的两种方法

'添加一标准模块，加入以下代码：
 Option Explicit
 Private Declare Function Shell_NotifyIcon Lib “shell32.dll” Alias “Shell_NotifyIconA” (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
 Const MAX_TOOLTIP As Integer = 64
 Const NIF_ICON = &H2
 Const NIF_MESSAGE = &H1
 Const NIF_TIP = &H4
 Const NIM_ADD = &H0
 Const NIM_DELETE = &H2
 Const WM_MOUSEMOVE = &H200
 Const WM_LBUTTONUP = &H202
 Const WM_RBUTTONUP = &H205
 
Private Type NOTIFYICONDATA
 cbSize As Long
 hwnd As Long
 uID As Long
 uFlags As Long
 uCallbackMessage As Long
 hIcon As Long
 szTip As String * MAX_TOOLTIP
 End Type
 Private nfIconData As NOTIFYICONDATA
 
Public Sub TheTray(Fem As Form) '最小化到托盘
 nfIconData.hwnd = Fem.hwnd
 nfIconData.uID = Fem.Icon '这里确定使用哪个图标
 nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
 nfIconData.uCallbackMessage = WM_MOUSEMOVE
 nfIconData.hIcon = Fem.Icon.Handle
 nfIconData.szTip = Fem.Caption & vbNullChar '这里是将鼠标移到图标上时，将显示的文字
 nfIconData.cbSize = Len(nfIconData)
 Call Shell_NotifyIcon(NIM_ADD, nfIconData)
 Fem.Hide
 End Sub
 
Public Sub IconResponse(Fem As Form, X As Single)
 Dim lMsg As Single
 lMsg = X / Screen.TwipsPerPixelX
 Select Case lMsg
 Case WM_RBUTTONUP '鼠标右键按下
 '此处添加弹出菜单语句
 Case WM_LBUTTONUP '鼠标左键按下
 Fem.WindowState = 0
 Fem.Show
 Call UnloadIcon
 End Select
 End Sub
 
'将图标从托盘中消除
 Public Sub UnloadIcon()
 Shell_NotifyIcon NIM_DELETE, nfIconData
 End Sub
 '-----------------------------------------------------------------------------------------------------------------
 '窗体调用，代码如下：
 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Call IconResponse(Me, X)
 End Sub
 
Private Sub Form_Resize()
 If Me.WindowState = 1 Then
 Call TheTray(Me)
 End If
 End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 Call UnloadIcon
 End Sub

在使用VB设计软件的时候，新建窗体默认都有一个VB应用程序的图标。但是我们在实际应用中，有时候仅仅是弹出一个对话框来跟用户进行交互，所以这个时候是不需要设置图标的（当然你也可以自己更改）。
 
如何去掉窗体的左上角图标？只需下面两个步骤即可
 
1、更改窗体的BorderStyle  属性为 3-Fixed Dialog
 
2、在窗体的Load事件中更改其图标为无
 
Private Sub Form_Load()
    Me.Icon = LoadPicture("")
End Sub
 

 3、来看看效果吧