Visual Basic 2008 Tutorial!

How to Make A Advance Web Browser!

A browser is a software application for retrieving, presenting and traversing information resources on the World Wide Web. An information resource is identified by a Uniform Resource Identifier (URI) and may be a web page, image, video or other piece of content. Hyperlinks present in resources enable users easily to navigate their browsers to related resources. A web browser can also be defined as an application software or program designed to enable users to access, retrieve and view documents and other resources on the Internet.
Just Like the One You are Using It! Maybe it is Chrome, Firefox, Internet Explorer, Opera or Safari!
So why don't you make your one!

• You Need To watch This Video! CLICK HERE!
• Here Copy the Codes Given Below!

-Load up Google when opened.

Webbrowser1.Navigate("www.google.com")

-Back

Webbrowser1.GoBack

-Forward

Webbrowser1.GoForward

-Refresh

Webbrowser1.Refresh

-Stop

Webbrowser1.Stop

-Go

Webbrowser1.Navigate(Combobox1.Text)

-Google Search

Webbrowser1.Navigate("http://www.google.com/search?q=" & Combobox2.Text)

-Go Home

Webbrowser1.GoHome

Visual Basic

Visual Basic 2008 Tutorial!

How to Make A Digital Clock!

• You Need To watch This Video! CLICK HERE!
• Here Copy the Codes Given Below!

Public Class Form1
#Region " Global Variables "
    Dim Point As New System.Drawing.Point()
    Dim X, Y As Integer
#End Region

#Region " GUI "
    Private Sub Main_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove
        If e.Button = MouseButtons.Left Then
            Point = Control.MousePosition
            Point.X = Point.X - (X)
            Point.Y = Point.Y - (Y)
            Me.Location = Point
        End If
    End Sub
    Private Sub Main_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TransparencyKey = Me.BackColor

        Timer1.Enabled = True
        Timer1.Interval = 10
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

End Class

Visual Basic