利用New关键字仿屏保

效果图

 http://v.youku.com/v_show/id_XMzQ2Nzg2Nzg4.html

窗体布局

form1上添加timer控件

属性设置

 

代码部分

form1

Private Sub Form_Load()
    Form1.ScaleWidth = Screen.Width
    Form1.ScaleHeight = Screen.Height
    Dim hbitmap
    Form1.AutoRedraw = True
    hbitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
    SelectObject Me.hdc, hbitmap
    Me.Refresh
    Timer1.Enabled = True
    'Form1.Visible = False
    
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Or Button = 2 Then
        End
    End If
End Sub

Private Sub Timer1_Timer()
    Static i As Integer
    i = i + 1
    Dim aform As New Form2
    aform.Show
    aform.Top = Screen.Height * Rnd
    aform.Left = Screen.Width * Rnd
    If i > 1000 Then End
    
End Sub

form2

Private Sub Form_KeyPress(KeyAscii As Integer)
    End
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Or Button = 2 Then
        End
    End If
End Sub

module1

Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

PS：由于知识太有限，如果将图片换成透明背景的话，还达不到想要的效果，查了源码以后发现，有从资源文件装载图片的部分，可惜不会，把我找到的源码贴过来吧

http://www.mndsoft.com/blog/VB6/0969.html