12 lines
230 B
Text
12 lines
230 B
Text
Public Sub Form_Open()
|
|
Dim hWebView As WebView
|
|
|
|
Me.Arrangement = Arrange.Fill
|
|
Me.Maximized = True
|
|
Me.Title = "Yahoo! search interface"
|
|
|
|
hWebView = New WebView(Me)
|
|
hWebView.Expand = True
|
|
hWebView.URL = "https://www.yahoo.com"
|
|
|
|
End
|