frmhistory.vb

来自「Online Telephone Directory in Visual Bas」· VB 代码 · 共 13 行

Option Strict Off
Option Explicit On
Friend Class Form13
	Inherits System.Windows.Forms.Form
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Me.Close()
		Form1.Show()
	End Sub
	
	Private Sub Form13_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		WebBrowser1.Navigate(New System.URI(My.Application.Info.DirectoryPath & "\History.html"))
	End Sub
End Class