home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Personal Organiser / movefrmfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-12  |  25.5 KB  |  837 lines
  1. VERSION 5.00
  2. Object = "{FAE1731F-430A-11D4-B183-D1B9690DF016}#22.0#0"; "FORMINDIVIDUAL.OCX"
  3. Object = "{56034C77-7369-44EE-828E-D0C208D19BDF}#8.0#0"; "GOLD BUTTON.OCX"
  4. Begin VB.Form Main 
  5.    BackColor       =   &H80000004&
  6.    BorderStyle     =   0  'None
  7.    Caption         =   " Personal Organiser 3.0"
  8.    ClientHeight    =   3720
  9.    ClientLeft      =   0
  10.    ClientTop       =   0
  11.    ClientWidth     =   3720
  12.    Icon            =   "movefrmfrm.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    Picture         =   "movefrmfrm.frx":1272
  15.    ScaleHeight     =   3720
  16.    ScaleWidth      =   3720
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.PictureBox Picture5 
  20.       AutoSize        =   -1  'True
  21.       BackColor       =   &H8000000D&
  22.       BorderStyle     =   0  'None
  23.       Height          =   360
  24.       Left            =   2000
  25.       Picture         =   "movefrmfrm.frx":2E374
  26.       ScaleHeight     =   360
  27.       ScaleWidth      =   450
  28.       TabIndex        =   8
  29.       Top             =   960
  30.       Width           =   450
  31.    End
  32.    Begin VB.PictureBox Picture4 
  33.       AutoSize        =   -1  'True
  34.       BackColor       =   &H8000000D&
  35.       BorderStyle     =   0  'None
  36.       Height          =   360
  37.       Left            =   2000
  38.       Picture         =   "movefrmfrm.frx":2EC56
  39.       ScaleHeight     =   360
  40.       ScaleWidth      =   450
  41.       TabIndex        =   6
  42.       Top             =   1320
  43.       Width           =   450
  44.    End
  45.    Begin VB.PictureBox Picture3 
  46.       AutoSize        =   -1  'True
  47.       BackColor       =   &H8000000D&
  48.       BorderStyle     =   0  'None
  49.       Height          =   360
  50.       Left            =   98
  51.       Picture         =   "movefrmfrm.frx":2F538
  52.       ScaleHeight     =   360
  53.       ScaleWidth      =   450
  54.       TabIndex        =   5
  55.       Top             =   1340
  56.       Width           =   450
  57.    End
  58.    Begin VB.PictureBox Picture2 
  59.       AutoSize        =   -1  'True
  60.       BackColor       =   &H8000000D&
  61.       BorderStyle     =   0  'None
  62.       Height          =   360
  63.       Left            =   109
  64.       Picture         =   "movefrmfrm.frx":2FE1A
  65.       ScaleHeight     =   360
  66.       ScaleWidth      =   450
  67.       TabIndex        =   3
  68.       Top             =   960
  69.       Width           =   450
  70.    End
  71.    Begin VB.PictureBox Picture1 
  72.       BackColor       =   &H00FFFFFF&
  73.       BorderStyle     =   0  'None
  74.       Height          =   232
  75.       Left            =   3000
  76.       ScaleHeight     =   225
  77.       ScaleWidth      =   30
  78.       TabIndex        =   0
  79.       Top             =   480
  80.       Width           =   30
  81.    End
  82.    Begin FormIndividual.IndForm IndForm1 
  83.       Left            =   4320
  84.       Top             =   4560
  85.       _ExtentX        =   873
  86.       _ExtentY        =   873
  87.    End
  88.    Begin pOCX.GoldButton cmdPt 
  89.       Height          =   375
  90.       Left            =   1305
  91.       TabIndex        =   12
  92.       Top             =   3110
  93.       Width           =   495
  94.       _ExtentX        =   873
  95.       _ExtentY        =   661
  96.       Caption         =   "."
  97.       Alignment       =   2
  98.       ForeColor       =   -2147483630
  99.       DownColor       =   255
  100.       SkinDisabledText=   -2147483632
  101.       SkinHighlight   =   -2147483628
  102.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   13.5
  105.          Charset         =   0
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       OnDown          =   2
  112.    End
  113.    Begin pOCX.GoldButton cmdEQ 
  114.       Height          =   855
  115.       Left            =   3050
  116.       TabIndex        =   13
  117.       Top             =   2630
  118.       Width           =   495
  119.       _ExtentX        =   873
  120.       _ExtentY        =   1508
  121.       Caption         =   "="
  122.       Alignment       =   2
  123.       ForeColor       =   -2147483630
  124.       DownColor       =   255
  125.       SkinDisabledText=   -2147483632
  126.       SkinHighlight   =   -2147483628
  127.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  128.          Name            =   "Tahoma"
  129.          Size            =   9.75
  130.          Charset         =   0
  131.          Weight          =   700
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       OnDown          =   2
  137.    End
  138.    Begin pOCX.GoldButton cmdOp 
  139.       Height          =   375
  140.       Index           =   0
  141.       Left            =   1905
  142.       TabIndex        =   14
  143.       Top             =   3110
  144.       Width           =   495
  145.       _ExtentX        =   873
  146.       _ExtentY        =   661
  147.       Caption         =   "+"
  148.       Alignment       =   2
  149.       ForeColor       =   -2147483630
  150.       DownColor       =   255
  151.       SkinDisabledText=   -2147483632
  152.       SkinHighlight   =   -2147483628
  153.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  154.          Name            =   "Tahoma"
  155.          Size            =   8.25
  156.          Charset         =   0
  157.          Weight          =   400
  158.          Underline       =   0   'False
  159.          Italic          =   0   'False
  160.          Strikethrough   =   0   'False
  161.       EndProperty
  162.       OnDown          =   2
  163.    End
  164.    Begin pOCX.GoldButton cmdNum 
  165.       Height          =   375
  166.       Index           =   0
  167.       Left            =   740
  168.       TabIndex        =   15
  169.       Top             =   3110
  170.       Width           =   495
  171.       _ExtentX        =   873
  172.       _ExtentY        =   661
  173.       Caption         =   "0"
  174.       Alignment       =   2
  175.       ForeColor       =   -2147483630
  176.       DownColor       =   255
  177.       SkinDisabledText=   -2147483632
  178.       SkinHighlight   =   -2147483628
  179.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  180.          Name            =   "Tahoma"
  181.          Size            =   8.25
  182.          Charset         =   0
  183.          Weight          =   400
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       OnDown          =   2
  189.    End
  190.    Begin pOCX.GoldButton cmdNum 
  191.       Height          =   375
  192.       Index           =   1
  193.       Left            =   160
  194.       TabIndex        =   16
  195.       Top             =   2630
  196.       Width           =   495
  197.       _ExtentX        =   873
  198.       _ExtentY        =   661
  199.       Caption         =   "1"
  200.       Alignment       =   2
  201.       ForeColor       =   -2147483630
  202.       DownColor       =   255
  203.       SkinDisabledText=   -2147483632
  204.       SkinHighlight   =   -2147483628
  205.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  206.          Name            =   "Tahoma"
  207.          Size            =   8.25
  208.          Charset         =   0
  209.          Weight          =   400
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.       OnDown          =   2
  215.    End
  216.    Begin pOCX.GoldButton cmdNum 
  217.       Height          =   375
  218.       Index           =   2
  219.       Left            =   740
  220.       TabIndex        =   17
  221.       Top             =   2630
  222.       Width           =   495
  223.       _ExtentX        =   873
  224.       _ExtentY        =   661
  225.       Caption         =   "2"
  226.       Alignment       =   2
  227.       ForeColor       =   -2147483630
  228.       DownColor       =   255
  229.       SkinDisabledText=   -2147483632
  230.       SkinHighlight   =   -2147483628
  231.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  232.          Name            =   "Tahoma"
  233.          Size            =   8.25
  234.          Charset         =   0
  235.          Weight          =   400
  236.          Underline       =   0   'False
  237.          Italic          =   0   'False
  238.          Strikethrough   =   0   'False
  239.       EndProperty
  240.       OnDown          =   2
  241.    End
  242.    Begin pOCX.GoldButton cmdNum 
  243.       Height          =   375
  244.       Index           =   3
  245.       Left            =   1305
  246.       TabIndex        =   18
  247.       Top             =   2630
  248.       Width           =   495
  249.       _ExtentX        =   873
  250.       _ExtentY        =   661
  251.       Caption         =   "3"
  252.       Alignment       =   2
  253.       ForeColor       =   -2147483630
  254.       DownColor       =   255
  255.       SkinDisabledText=   -2147483632
  256.       SkinHighlight   =   -2147483628
  257.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  258.          Name            =   "Tahoma"
  259.          Size            =   8.25
  260.          Charset         =   0
  261.          Weight          =   400
  262.          Underline       =   0   'False
  263.          Italic          =   0   'False
  264.          Strikethrough   =   0   'False
  265.       EndProperty
  266.       OnDown          =   2
  267.    End
  268.    Begin pOCX.GoldButton cmdNum 
  269.       Height          =   375
  270.       Index           =   4
  271.       Left            =   175
  272.       TabIndex        =   19
  273.       Top             =   2150
  274.       Width           =   480
  275.       _ExtentX        =   847
  276.       _ExtentY        =   661
  277.       Caption         =   "4"
  278.       Alignment       =   2
  279.       ForeColor       =   -2147483630
  280.       DownColor       =   255
  281.       SkinDisabledText=   -2147483632
  282.       SkinHighlight   =   -2147483628
  283.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  284.          Name            =   "Tahoma"
  285.          Size            =   8.25
  286.          Charset         =   0
  287.          Weight          =   400
  288.          Underline       =   0   'False
  289.          Italic          =   0   'False
  290.          Strikethrough   =   0   'False
  291.       EndProperty
  292.       OnDown          =   2
  293.    End
  294.    Begin pOCX.GoldButton cmdNum 
  295.       Height          =   375
  296.       Index           =   5
  297.       Left            =   740
  298.       TabIndex        =   20
  299.       Top             =   2150
  300.       Width           =   495
  301.       _ExtentX        =   873
  302.       _ExtentY        =   661
  303.       Caption         =   "5"
  304.       Alignment       =   2
  305.       ForeColor       =   -2147483630
  306.       DownColor       =   255
  307.       SkinDisabledText=   -2147483632
  308.       SkinHighlight   =   -2147483628
  309.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  310.          Name            =   "Tahoma"
  311.          Size            =   8.25
  312.          Charset         =   0
  313.          Weight          =   400
  314.          Underline       =   0   'False
  315.          Italic          =   0   'False
  316.          Strikethrough   =   0   'False
  317.       EndProperty
  318.       OnDown          =   2
  319.    End
  320.    Begin pOCX.GoldButton cmdNum 
  321.       Height          =   375
  322.       Index           =   6
  323.       Left            =   1305
  324.       TabIndex        =   21
  325.       Top             =   2150
  326.       Width           =   495
  327.       _ExtentX        =   873
  328.       _ExtentY        =   661
  329.       Caption         =   "6"
  330.       Alignment       =   2
  331.       ForeColor       =   -2147483630
  332.       DownColor       =   255
  333.       SkinDisabledText=   -2147483632
  334.       SkinHighlight   =   -2147483628
  335.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  336.          Name            =   "Tahoma"
  337.          Size            =   8.25
  338.          Charset         =   0
  339.          Weight          =   400
  340.          Underline       =   0   'False
  341.          Italic          =   0   'False
  342.          Strikethrough   =   0   'False
  343.       EndProperty
  344.       OnDown          =   2
  345.    End
  346.    Begin pOCX.GoldButton cmdNum 
  347.       Height          =   375
  348.       Index           =   7
  349.       Left            =   1907
  350.       TabIndex        =   22
  351.       Top             =   2150
  352.       Width           =   495
  353.       _ExtentX        =   873
  354.       _ExtentY        =   661
  355.       Caption         =   "7"
  356.       Alignment       =   2
  357.       ForeColor       =   -2147483630
  358.       DownColor       =   255
  359.       SkinDisabledText=   -2147483632
  360.       SkinHighlight   =   -2147483628
  361.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  362.          Name            =   "Tahoma"
  363.          Size            =   8.25
  364.          Charset         =   0
  365.          Weight          =   400
  366.          Underline       =   0   'False
  367.          Italic          =   0   'False
  368.          Strikethrough   =   0   'False
  369.       EndProperty
  370.       OnDown          =   2
  371.    End
  372.    Begin pOCX.GoldButton cmdNum 
  373.       Height          =   375
  374.       Index           =   8
  375.       Left            =   2475
  376.       TabIndex        =   23
  377.       Top             =   2150
  378.       Width           =   495
  379.       _ExtentX        =   873
  380.       _ExtentY        =   661
  381.       Caption         =   "8"
  382.       Alignment       =   2
  383.       ForeColor       =   -2147483630
  384.       DownColor       =   255
  385.       SkinDisabledText=   -2147483632
  386.       SkinHighlight   =   -2147483628
  387.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  388.          Name            =   "Tahoma"
  389.          Size            =   8.25
  390.          Charset         =   0
  391.          Weight          =   400
  392.          Underline       =   0   'False
  393.          Italic          =   0   'False
  394.          Strikethrough   =   0   'False
  395.       EndProperty
  396.       OnDown          =   2
  397.    End
  398.    Begin pOCX.GoldButton cmdNum 
  399.       Height          =   375
  400.       Index           =   9
  401.       Left            =   3050
  402.       TabIndex        =   24
  403.       Top             =   2150
  404.       Width           =   495
  405.       _ExtentX        =   873
  406.       _ExtentY        =   661
  407.       Caption         =   "9"
  408.       Alignment       =   2
  409.       ForeColor       =   -2147483630
  410.       DownColor       =   255
  411.       SkinDisabledText=   -2147483632
  412.       SkinHighlight   =   -2147483628
  413.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  414.          Name            =   "Tahoma"
  415.          Size            =   8.25
  416.          Charset         =   0
  417.          Weight          =   400
  418.          Underline       =   0   'False
  419.          Italic          =   0   'False
  420.          Strikethrough   =   0   'False
  421.       EndProperty
  422.       OnDown          =   2
  423.    End
  424.    Begin pOCX.GoldButton cmdOp 
  425.       Height          =   375
  426.       Index           =   1
  427.       Left            =   2475
  428.       TabIndex        =   25
  429.       Top             =   3110
  430.       Width           =   495
  431.       _ExtentX        =   873
  432.       _ExtentY        =   661
  433.       Caption         =   "-"
  434.       Alignment       =   2
  435.       ForeColor       =   -2147483630
  436.       DownColor       =   255
  437.       SkinDisabledText=   -2147483632
  438.       SkinHighlight   =   -2147483628
  439.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  440.          Name            =   "MS Sans Serif"
  441.          Size            =   12
  442.          Charset         =   0
  443.          Weight          =   400
  444.          Underline       =   0   'False
  445.          Italic          =   0   'False
  446.          Strikethrough   =   0   'False
  447.       EndProperty
  448.       OnDown          =   2
  449.    End
  450.    Begin pOCX.GoldButton cmdOp 
  451.       Height          =   375
  452.       Index           =   2
  453.       Left            =   1905
  454.       TabIndex        =   26
  455.       Top             =   2630
  456.       Width           =   495
  457.       _ExtentX        =   873
  458.       _ExtentY        =   661
  459.       Caption         =   "x"
  460.       Alignment       =   2
  461.       ForeColor       =   -2147483630
  462.       DownColor       =   255
  463.       SkinDisabledText=   -2147483632
  464.       SkinHighlight   =   -2147483628
  465.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  466.          Name            =   "Tahoma"
  467.          Size            =   8.25
  468.          Charset         =   0
  469.          Weight          =   400
  470.          Underline       =   0   'False
  471.          Italic          =   0   'False
  472.          Strikethrough   =   0   'False
  473.       EndProperty
  474.       OnDown          =   2
  475.    End
  476.    Begin pOCX.GoldButton cmdOp 
  477.       Height          =   375
  478.       Index           =   3
  479.       Left            =   2475
  480.       TabIndex        =   27
  481.       Top             =   2630
  482.       Width           =   495
  483.       _ExtentX        =   873
  484.       _ExtentY        =   661
  485.       Caption         =   "
  486.       Alignment       =   2
  487.       ForeColor       =   -2147483630
  488.       DownColor       =   255
  489.       SkinDisabledText=   -2147483632
  490.       SkinHighlight   =   -2147483628
  491.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  492.          Name            =   "Symbol"
  493.          Size            =   12
  494.          Charset         =   2
  495.          Weight          =   400
  496.          Underline       =   0   'False
  497.          Italic          =   0   'False
  498.          Strikethrough   =   0   'False
  499.       EndProperty
  500.       OnDown          =   2
  501.    End
  502.    Begin pOCX.GoldButton cmdAC 
  503.       Height          =   375
  504.       Left            =   160
  505.       TabIndex        =   28
  506.       Top             =   3110
  507.       Width           =   495
  508.       _ExtentX        =   873
  509.       _ExtentY        =   661
  510.       Caption         =   "AC"
  511.       Alignment       =   2
  512.       ForeColor       =   -2147483630
  513.       DownColor       =   255
  514.       SkinDisabledText=   -2147483632
  515.       SkinHighlight   =   -2147483628
  516.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  517.          Name            =   "Tahoma"
  518.          Size            =   8.25
  519.          Charset         =   0
  520.          Weight          =   400
  521.          Underline       =   0   'False
  522.          Italic          =   0   'False
  523.          Strikethrough   =   0   'False
  524.       EndProperty
  525.       OnDown          =   2
  526.    End
  527.    Begin VB.Label End 
  528.       AutoSize        =   -1  'True
  529.       BackColor       =   &H8000000E&
  530.       BackStyle       =   0  'Transparent
  531.       Caption         =   "X"
  532.       BeginProperty Font 
  533.          Name            =   "Tahoma"
  534.          Size            =   6.75
  535.          Charset         =   0
  536.          Weight          =   700
  537.          Underline       =   0   'False
  538.          Italic          =   0   'False
  539.          Strikethrough   =   0   'False
  540.       EndProperty
  541.       ForeColor       =   &H8000000E&
  542.       Height          =   165
  543.       Left            =   3455
  544.       TabIndex        =   11
  545.       Top             =   40
  546.       Width           =   105
  547.    End
  548.    Begin VB.Shape Shape2 
  549.       Height          =   410
  550.       Left            =   624
  551.       Shape           =   4  'Rounded Rectangle
  552.       Top             =   385
  553.       Width           =   2495
  554.    End
  555.    Begin VB.Label Title 
  556.       Alignment       =   2  'Center
  557.       BackColor       =   &H8000000E&
  558.       BackStyle       =   0  'Transparent
  559.       Caption         =   "Personal Organiser 3.0"
  560.       BeginProperty Font 
  561.          Name            =   "Tahoma"
  562.          Size            =   6.75
  563.          Charset         =   0
  564.          Weight          =   700
  565.          Underline       =   0   'False
  566.          Italic          =   0   'False
  567.          Strikethrough   =   0   'False
  568.       EndProperty
  569.       ForeColor       =   &H8000000E&
  570.       Height          =   165
  571.       Left            =   640
  572.       TabIndex        =   10
  573.       Top             =   135
  574.       Width           =   2475
  575.    End
  576.    Begin VB.Label Calculator 
  577.       AutoSize        =   -1  'True
  578.       BackColor       =   &H8000000E&
  579.       BackStyle       =   0  'Transparent
  580.       Caption         =   "Calculator"
  581.       BeginProperty Font 
  582.          Name            =   "Tahoma"
  583.          Size            =   6.75
  584.          Charset         =   0
  585.          Weight          =   700
  586.          Underline       =   0   'False
  587.          Italic          =   0   'False
  588.          Strikethrough   =   0   'False
  589.       EndProperty
  590.       ForeColor       =   &H000000C0&
  591.       Height          =   165
  592.       Left            =   2520
  593.       TabIndex        =   9
  594.       Top             =   1080
  595.       Width           =   765
  596.    End
  597.    Begin VB.Label Address 
  598.       AutoSize        =   -1  'True
  599.       BackColor       =   &H8000000E&
  600.       BackStyle       =   0  'Transparent
  601.       Caption         =   "Address Book"
  602.       BeginProperty Font 
  603.          Name            =   "Tahoma"
  604.          Size            =   6.75
  605.          Charset         =   0
  606.          Weight          =   700
  607.          Underline       =   0   'False
  608.          Italic          =   0   'False
  609.          Strikethrough   =   0   'False
  610.       EndProperty
  611.       ForeColor       =   &H8000000E&
  612.       Height          =   165
  613.       Left            =   2485
  614.       TabIndex        =   7
  615.       Top             =   1440
  616.       Width           =   1035
  617.    End
  618.    Begin VB.Shape Shape1 
  619.       Height          =   250
  620.       Left            =   710
  621.       Shape           =   4  'Rounded Rectangle
  622.       Top             =   470
  623.       Width           =   2335
  624.    End
  625.    Begin VB.Label Dialer 
  626.       AutoSize        =   -1  'True
  627.       BackColor       =   &H8000000E&
  628.       BackStyle       =   0  'Transparent
  629.       Caption         =   "Telephone Dialer"
  630.       BeginProperty Font 
  631.          Name            =   "Tahoma"
  632.          Size            =   6.75
  633.          Charset         =   0
  634.          Weight          =   700
  635.          Underline       =   0   'False
  636.          Italic          =   0   'False
  637.          Strikethrough   =   0   'False
  638.       EndProperty
  639.       ForeColor       =   &H8000000E&
  640.       Height          =   165
  641.       Left            =   550
  642.       TabIndex        =   4
  643.       Top             =   1440
  644.       Width           =   1275
  645.    End
  646.    Begin VB.Label Email 
  647.       AutoSize        =   -1  'True
  648.       BackColor       =   &H8000000E&
  649.       BackStyle       =   0  'Transparent
  650.       Caption         =   "Compose E-Mail"
  651.       BeginProperty Font 
  652.          Name            =   "Tahoma"
  653.          Size            =   6.75
  654.          Charset         =   0
  655.          Weight          =   700
  656.          Underline       =   0   'False
  657.          Italic          =   0   'False
  658.          Strikethrough   =   0   'False
  659.       EndProperty
  660.       ForeColor       =   &H8000000E&
  661.       Height          =   165
  662.       Left            =   555
  663.       TabIndex        =   2
  664.       Top             =   1080
  665.       Width           =   1185
  666.    End
  667.    Begin VB.Label txtDisp 
  668.       Alignment       =   1  'Right Justify
  669.       Appearance      =   0  'Flat
  670.       BackColor       =   &H00FFFFFF&
  671.       Caption         =   "0"
  672.       BeginProperty Font 
  673.          Name            =   "Arial"
  674.          Size            =   9
  675.          Charset         =   0
  676.          Weight          =   400
  677.          Underline       =   0   'False
  678.          Italic          =   0   'False
  679.          Strikethrough   =   0   'False
  680.       EndProperty
  681.       ForeColor       =   &H80000008&
  682.       Height          =   225
  683.       Left            =   720
  684.       TabIndex        =   1
  685.       Top             =   480
  686.       Width           =   2295
  687.    End
  688.    Begin VB.Image Image1 
  689.       Height          =   3720
  690.       Left            =   0
  691.       Picture         =   "movefrmfrm.frx":306FC
  692.       Top             =   0
  693.       Width           =   3705
  694.    End
  695. Attribute VB_Name = "main"
  696. Attribute VB_GlobalNameSpace = False
  697. Attribute VB_Creatable = False
  698. Attribute VB_PredeclaredId = True
  699. Attribute VB_Exposed = False
  700. Dim x As String
  701. Dim y As String
  702. Dim op As String
  703. Dim chk As Integer
  704. Private Sub Address_Click()
  705. Me.Hide
  706. Contacts.Show
  707. End Sub
  708. Private Sub cmdAC_Click()
  709. x = ""
  710. y = ""
  711. op = ""
  712. txtDisp.Caption = "0"
  713. End Sub
  714. Private Sub cmdNum_Click(Index As Integer)
  715. On Error GoTo eh2
  716. If chk = 1 Then
  717.     x = ""
  718.     y = ""
  719.     op = ""
  720.     chk = 0
  721. End If
  722. If op = "" Then
  723.     x = Str(Val(x & Str(Index)))
  724.     txtDisp.Caption = x
  725.     y = Str(Val(y & Str(Index)))
  726.     txtDisp.Caption = y
  727. End If
  728. Exit Sub
  729. txtDisp.Caption = "-E-"
  730. x = ""
  731. y = ""
  732. op = ""
  733. End Sub
  734. Private Sub cmdOp_Click(Index As Integer)
  735. On Error GoTo eh3
  736. Select Case op
  737.     Case "+"
  738.         x = Str(Val(x) + Val(y))
  739.         y = ""
  740.     Case "-"
  741.         x = Str(Val(x) - Val(y))
  742.         y = ""
  743.     Case "*"
  744.         x = Str(Val(x) * Val(y))
  745.         y = ""
  746.     Case "/"
  747.         x = Str(Val(x) / Val(y))
  748.         y = ""
  749. End Select
  750. txtDisp.Caption = x
  751. op = ""
  752. chk = 0
  753. Select Case Index
  754.     Case 0
  755.         op = "+"
  756.     Case 1
  757.         op = "-"
  758.     Case 2
  759.         op = "*"
  760.     Case 3
  761.         op = "/"
  762. End Select
  763. Exit Sub
  764. txtDisp.Caption = "-E-"
  765. x = ""
  766. y = ""
  767. op = ""
  768. End Sub
  769. Private Sub cmdPt_Click()
  770. If op = "" Then
  771.     x = x & "."
  772.     txtDisp.Caption = x
  773.     y = y & "."
  774.     txtDisp.Caption = y
  775. End If
  776. End Sub
  777. Private Sub Dialer_Click()
  778. MsgBox "Under Construction !", vbOKOnly, " Construction"
  779. End Sub
  780. Private Sub Email_Click()
  781. MsgBox "Under Construction !", vbOKOnly, " Construction"
  782. End Sub
  783. Private Sub End_Click()
  784. Dim exitcon As Variant
  785. exitcon = MsgBox("  Are you sure you want to Exit ?", vbYesNo, " Personal Organiser 3.0")
  786. If exitcon = vbYes Then
  787. Unload Me
  788. Cancel = 1
  789. End If
  790. On Error GoTo err:
  791. End Sub
  792. Private Sub Form_Unload(Cancel As Integer)
  793. Unload Me
  794. End Sub
  795. Private Sub Form_Load()
  796. chk = 0
  797. x = ""
  798. y = ""
  799. op = ""
  800. txtDisp.Caption = "0"
  801. formen = IndForm1.Bitmap2Form(Me.Picture, vbBlack)
  802. End Sub
  803. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  804.     FormDrag Me
  805.     End Sub
  806. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  807.     FormDrag Me
  808.     End Sub
  809. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  810.     FormDrag Me
  811.     End Sub
  812. Private Sub cmdEQ_Click()
  813. On Error GoTo eh1
  814. Select Case op
  815.     Case "+"
  816.         x = Str(Val(x) + Val(y))
  817.         y = ""
  818.     Case "-"
  819.         x = Str(Val(x) - Val(y))
  820.         y = ""
  821.     Case "*"
  822.         x = Str(Val(x) * Val(y))
  823.         y = ""
  824.     Case "/"
  825.         x = Str(Val(x) / Val(y))
  826.         y = ""
  827. End Select
  828. txtDisp.Caption = x
  829. op = ""
  830. chk = 1
  831. Exit Sub
  832. txtDisp.Caption = "-E-"
  833. x = ""
  834. y = ""
  835. op = ""
  836. End Sub
  837.