Private Sub Command1_Click()
h = InputBox("請輸入文本框中顯示的值")
Text1.Text = h
End Sub
2,消息對話框
Private Sub Command1_Click()
MsgBox ("妳好")
End Sub
3,通用對話框（打開對話框,另存為對話框,顏色對話框,字體對話框,打印對話框,幫助對話框）
對用對話框控件不是標準控件,可以通過以下方法添加
工程-部件-控件選項卡 選中Microsoft Common Dialog Control6.0復選框 單擊確定.
下面只舉打開對話框
Private Sub Command1_Click()
CommonDialog1.Filter = "Access數據庫(*.mdb)" '設置“打開”對話框的篩選條件
CommonDialog1.ShowOpen '彈出“打開”對話框
End Sub
建議看VB程序設計方面的書.
這個妳直接在:工程-工程1屬性-通用選項卡 的啟動對象所選的那個窗體(比如名叫FrmMain)
在FrmMain下寫如下代碼:
Private Sub Form_Load()
FrmLogin.Show 1
End Sub
其中FrmLogin就是妳彈出的那個登錄窗體的名字.
1表示將窗體作為模式對話框顯示，這種情況下，Show方法後的代碼要等到模式對話框關閉之後才能執行，且焦點也不能移動到其他窗體；