module1.bas

实现画图

Attribute VB_Name = "Module1"
Public PntArray As New Collection
Public LineArray As New Collection
Public RecArray As New Collection
Public CircleArray As New Collection
Public nSelectType As Long
Public nselectid As Long
Public nselectidl As Long
Public nselectidr As Long
Public nselectidc As Long
Public UserName As String



Sub Main()
   Dim flogin As New FormLogin
   flogin.Show

   
End Sub