Really need help, I will Pay!

Hey everyone, I need help finding a syntax error in the following code. I will pay somone like $5 after they post back the code with a corrected syntax! Thanks

///////////////////CODE STARTS HERE\\\\\\\\\\\\\\\\\\\\\\\

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports Functions
Class ClassName1
public Dim a As Integer = 1
Sub main()
Class1.minimise(Class1.getForm())
Class1.activeWindow()
System.Threading.Thread.Sleep(300)
While (a != 0)
If (loop() == -1) Then
a = 0
End If
End While
System.Threading.Thread.Sleep(300)
Class1.maximise(Class1.getForm())
End Sub
public Function loop() As Integer

return -1
End Function
End Class

 

I have no idea what your trying to do here but this code is extremely wrong. The parts I couldn't understand I left out but here's the correct syntax.

Code:

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
    Public a As Integer = 1
    Sub main()
        Me.WindowState = FormWindowState.Minimized
        System.Threading.Thread.Sleep(300)
        While Not (a = 0)
            If (loopc() = -1) Then
                a = 0
            End If
        End While
        System.Threading.Thread.Sleep(300)
        Me.WindowState = FormWindowState.Maximized
    End Sub
    Function loopc() As Integer
        loopc = -1
    End Function
    'You need to call main from somewhere
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        main()
    End Sub
End Class

 

That codes extremely messy, and incorrect. Please provide what you are trying to do with it.

 

I found 1 obvious error: Class ClassName1
Should be Class Class1.