【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了frmContactUs.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Begin VB.Form frmContactUs 
       BorderStyle     =   0  'None
       Caption         =   "Hirdhav Digital Diary - Contact Us"
       ClientHeight    =   5175
       ClientLeft      =   0
       ClientTop       =   0
       ClientWidth     =   5055
       BeginProperty Font 
          Name            =   "Arial"
          Size            =   9
          Charset         =   0
          Weight          =   700
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       ForeColor       =   &H00000000&
       Icon            =   "frmContactUs.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   5175
       ScaleWidth      =   5055
       StartUpPosition =   2  'CenterScreen
       Begin VB.Timer Timer1 
          Interval        =   100
          Left            =   0
          Top             =   240
       End
       Begin VB.Label lblCaptionSupport 
          BackStyle       =   0  'Transparent
          Height          =   255
          Left            =   0
          TabIndex        =   19
          Top             =   0
          Width           =   5055
       End
       Begin VB.Line Line3 
          BorderWidth     =   2
          X1              =   0
          X2              =   5040
          Y1              =   5160
          Y2              =   5160
       End
       Begin VB.Label lblOkSupport 
          BackStyle       =   0  'Transparent
          Height          =   495
          Left            =   1680
          TabIndex        =   18
          Top             =   4560
          Width           =   1695
       End
       Begin VB.Label lblOk 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Ok"
          Height          =   225
          Left            =   2400
          TabIndex        =   17
          Top             =   4680
          Width           =   240
       End
       Begin VB.Shape shapeOk 
          BackStyle       =   1  'Opaque
          Height          =   495
          Left            =   1680
          Top             =   4560
          Width           =   1695
       End
       Begin VB.Label lblAdd6 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "INDIA."
          Height          =   225
          Left            =   1920
          TabIndex        =   16
          Top             =   4200
          Width           =   495
       End
       Begin VB.Label lblAdd5 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Maharashtra"
          Height          =   225
          Left            =   1920
          TabIndex        =   15
          Top             =   3960
          Width           =   1095
       End
       Begin VB.Label lblAdd4 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Mumbai : 400 062."
          Height          =   225
          Left            =   1920
          TabIndex        =   14
          Top             =   3720
          Width           =   1530
       End
       Begin VB.Label lblAdd3 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Goregaon (West),"
          Height          =   225
          Left            =   1920
          TabIndex        =   13
          Top             =   3480
          Width           =   1485
       End
       Begin VB.Label lblAdd2 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "M.G. Road,"
          Height          =   225
          Left            =   1920
          TabIndex        =   12
          Top             =   3240
          Width           =   885
       End
       Begin VB.Label lblAdd1 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "95/6, Laxmi Niwas,"
          Height          =   225
          Left            =   1920
          TabIndex        =   11
          Top             =   3000
          Width           =   1590
       End
       Begin VB.Label lblHirdhavAdd 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Hirdhav"
          Height          =   225
          Left            =   2280
          TabIndex        =   10
          Top             =   2760
          Width           =   645
       End
       Begin VB.Label Label4 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Address:"
          Height          =   225
          Left            =   1080
          TabIndex        =   9
          Top             =   2760
          Width           =   765
       End
       Begin VB.Label Label3 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "- Contact Us By Mail"
          Height          =   225
          Left            =   360
          TabIndex        =   8
          Top             =   2400
          Width           =   1680
       End
       Begin VB.Label lblEMail 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "contactus@hirdhav.com"
          Height          =   225
          Left            =   2880
          TabIndex        =   7
          Top             =   2040
          Width           =   2085
       End
       Begin VB.Label Label1 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "- Contact Us By E-Mail"
          Height          =   225
          Left            =   2520
          TabIndex        =   6
          Top             =   1680
          Width           =   1845
       End
       Begin VB.Line Line2 
          BorderWidth     =   2
          X1              =   5040
          X2              =   5040
          Y1              =   240
          Y2              =   5160
       End
       Begin VB.Label lblReg 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "?
          Height          =   225
          Left            =   1920
          TabIndex        =   5
          Top             =   480
          Width           =   135
       End
       Begin VB.Label lblHirdhav 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Hirdhav"
          BeginProperty Font 
             Name            =   "Arial"
             Size            =   21.75
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   -1  'True
             Strikethrough   =   0   'False
          EndProperty
          Height          =   510
          Left            =   240
          TabIndex        =   4
          Top             =   480
          Width           =   1740
       End
       Begin VB.Label lblNo2 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "+(91) (022) 875 51 05"
          Height          =   225
          Left            =   3120
          TabIndex        =   3
          Top             =   1200
          Width           =   1785
       End
       Begin VB.Label lblNo1 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "+(91) (022) 873 56 89"
          Height          =   225
          Left            =   3120
          TabIndex        =   2
          Top             =   960
          Width           =   1785
       End
       Begin VB.Label Label2 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "- Contact Us By Phone"
          Height          =   225
          Left            =   2520
          TabIndex        =   1
          Top             =   600
          Width           =   1875
       End
       Begin VB.Label lblCaption 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "Hirdhav Digital Diary  -  Contact Us"
          Height          =   225
          Left            =   200
          TabIndex        =   0
          Top             =   10
          Width           =   2865
       End
       Begin VB.Line Line1 
          BorderWidth     =   2
          X1              =   15
          X2              =   15
          Y1              =   240
          Y2              =   5160
       End
       Begin VB.Shape shapeCaption 
          BackStyle       =   1  'Opaque
          BorderWidth     =   2
          Height          =   255
          Left            =   15
          Top             =   15
          Width           =   5040
       End
    End[b