Private Sub Form_Load()
    LoadResStrings Me
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & _
      App.Revision
    lblProductName.Caption = App.Title
End Sub
 
Private Sub lblWarning_Click()
 
End Sub
 
Private Sub fraMainFrame_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub