Attribute VB_Name = "Module1"
Option Explicit
Public shuju As String
Public mima As String
Public sa As String
Public str1 As String

Private Sub Main()
login.Show
'MsgBox shuju

End Sub