Private Sub Command1_Click()
On Error Resume Next
Dim objApplication As SolidEdgeFramework.Application
Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT
Set objApplication = GetObject(, "SolidEdge.Application")
Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT
Dim UserName As String
Dim Password As String
Dim Group As String
UserName = "username"
Password = "pasword"
Group = "dba"
Call objSolidEdgeInsightXT.ValidateLogin(UserName, Password, Group)
Set objSolidEdgeInsightXT = Nothing
Set objApplication = Nothing
End Sub