Private Sub Command1_Click()
Form2.Show
Unload Form1
End Sub

Private Sub Form_Load()
Text2.Text = Inet1.OpenURL("") ' 在免費空間裡上傳個txt檔,裡面輸入版本號碼

If Text2.Text = Text1.Text Then '偵測是否與本地的版本相同
Text3.Text = "版本正確，可以開啟主程式"
Text3.ForeColor = &HFF0000
Command1.Enabled = True

Else
Text3.Text = "版本錯誤，請自行下載最新版本！"
Text3.ForeColor = &HFF&
Command2.Enabled = True
End If
End Sub