Attribute VB_Name = "Module1"
Public Const Precision = 0.00001
Public Const MAX = 100
Public A(MAX, MAX) As Double
Public X(MAX) As Double
Public t As Integer
Public w1 As Integer
Sub Main()
Form1.Show
Form2.Hide
End Sub