大家来帮个忙

Question

当我的程序运行时如何在桌面显示一图片
没有窗体的那一种，然后自动消失

Answer 1

把窗体的系统菜单以及bordstyle设置为0

Answer 2

其实也是有窗体的把窗体的Pictrue、MaxButton、MinButton设置一下Private Sub Form_Activate()
    Timer1.Enabled = True
End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End SubPrivate Sub Form_Load()
    
    frmSplash.Left = (Screen.Width - frmSplash.Width) / 2
    frmSplash.Top = (Screen.Height - frmSplash.Height) / 2 - 600
    
End SubPrivate Sub Form_Click()
    Unload Me
End SubPrivate Sub Form_Unload(Cancel As Integer)
    frmMain.Show
End SubPrivate Sub Timer1_Timer()
    Unload Me
End Sub