[VB6] 比較日期&時間

Dim sDate_1, sDate_2 As String
Dim dDate_1, dDate_2 As Date

sDate_1 = "2016/09/20 08:10:50"
sDate_2 = "2016/09/20 08:00:50"

dDate_1 = CDate(sDate_1)
dDate_2 = CDate(sDate_2)
MsgBox DateDiff("s", dDate_1, dDate_2)

DateDiff第一個參數是Interval，作為兩個時間之間時間差的單位
有 y.m.d.h.n.s(年.月.日.時.分.秒)...等等

[VB6] 圖片仿製按鈕 － 解決圖片閃爍問題

先把兩個Images設定好

1. Picture屬性(Image會預設透明背景)

2. Visible屬性設置False

3. 透過PictuerBox觸發KeyDown.KeyUp來切換圖片，切換圖片用PictuerBox的PaintPicture Function來顯示Image，如此一來就不會有圖片切換時的閃爍問題

以下方法會閃爍

1. 一個Image，屬性Picture = LoadPicture(".\Image\XXX.ico")。

2. 兩個Images重疊，用 Visible的方式切換圖片。

補充：背景透明元件，專案->設定使用元件 加入”Microsoft Forms 2.0 Object Library” ，會在左側工具列新增一些OCX，再拉入需要的OCX，並設定BackStyle = 0，背景就會變透明。