[HELP]GUI CHIP MAKER

Public Class Form1
    Dim Server As Integer = 1
    Dim scV As String
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Server.ToString()
        scV = TextBox1.Text
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebClient1.DownloadDataAsync(New Uri("http://apps.facebook.com/texas_holdem/index.php"))
        Button1.Visible = True
        Module1****tialize()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim T1 As Timer
        T1 = Timer1
        T1.Start()
        Module1.SetValue()
        TextBox1.ReadOnly = True
        ValueType.Equals(TextBox2.Text, TextBox1.Text)
        Replace(TextBox1.Text, TextBox2.Text, TextBox1.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SplashScreen1.Show()
        SplashScreen1.BringToFront()
        SplashScreen1.Close()
    End Sub
    Dim CurrentValue As Integer
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.GetProcessesByName("firefox.exe")
        Process.GetCurrentProcess()
        Process.GetProcesses()
        SetValue()
        CurrentValue = TextBox2.Text
        TextBox2.ReadOnly = True
        TextBox2.Refresh()
    End Sub
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class