请VB高手调试一下这个程序,.看出错在哪里?

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private infs(3) As String * 4
Private Sub Command1_Click()
cytixing.Show
End Sub

Private Sub Form_Load()
Dim gs As String
Dim c As String
c = Space(5)
Dim mypath As String
mypath = App.Path
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
GetPrivateProfileString "txgs", "number", "0", gs, Len(c), mypath & "tixi.i

请VB高手调试一下这个程序,.看出错在哪里? 请哪位大虾调试一下这个程序、 请VB高手给看一下这个程序是怎么回事 请高手帮忙调试一下下面的C++程序 我在用VB编写程序，运行出错！请高手调试！谢谢！！ VB程序调试不成功 vb中的程序,请高手详细解读一下下面程序 请帮我调试这个程序 这个VB程序怎么写呢?高手来看一下. C++程序调试请帮忙看一下