... Chiêu thức lập trình VB 6.0End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) EndEnd SubĐôc chiêu 2 : Hiện một câu bằng cách lần lượt hiện từng chữ ... trường THPT Đăk Nông Trang 18 Chiêu thức lập trình VB 6.0Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40Private ... gTrayHwndTray.hIcon = Icon.HandleTray.uFlags = NIF_ICONTray.cbSize = Len(Tray)rc = Shell_NotifyIcon(NIM_MODIFY, Tray)End IfSet gTrayIcon = IconSet Picture = IconPropertyChanged sTrayIconEnd IfEnd...