راهنمایی در نحوه تبدیل کد vb6 و یا اجرای آن

[moferferi]

سلام
این کد را میخوام تبدیل به سی شارپ کنم.توی کانورتور های مختلفی امتحان کردم ولی نشد.
اصلا امکانش هست یا نه؟



Private Sub Check1_Click()
Check1.Enabled = False
PalTime1.ReaderOn = Check1.Value
Check1.Enabled = True

End Sub

Private Sub Check2_Click()
Check2.Enabled = False
PalTime1.MonitoringON = Check2.Value
Check2.Enabled = True

End Sub

Private Sub Command1_Click()
PalTime1.SetTime Time
End Sub

Private Sub Command10_Click()
Dim y1 As Byte, m1 As Byte, d1 As Byte, y2 As Byte, m2 As Byte, d2 As Byte
Command10.Enabled = False
PalTime1.BPS = Text1.Text
y1 = Val(Mid(Text4.Text, 1, 2))
m1 = Val(Mid(Text4.Text, 4, 2))
d1 = Val(Mid(Text4.Text, 7, 2))
y2 = Val(Mid(Text7.Text, 1, 2))
m2 = Val(Mid(Text7.Text, 4, 2))
d2 = Val(Mid(Text7.Text, 7, 2))
If PalTime1.GetDataByDate(d1, m1, y1, d2, m2, y2, App.Path + "\aaa.dat") <> 0 Then
MsgBox "ÎØÇ ÏÑ ÏÑíÇÝÊ ÇØáÇÚÇÊ"
End If
MsgBox "ÊÚÏÇÏ " + Str(PalTime1.NumOfRecs) + " ÑßæÑÏ ÏÑíÇÝÊ ÔÏ." + "ÑßæÑÏåÇí ÎÑÇÈ " + Str(PalTime1.DamagedRecs)

Command10.Enabled = True
End Sub

Private Sub Command11_Click()
Dim m1 As Byte, d1 As Byte, m2 As Byte, d2 As Byte
Command11.Enabled = False
PalTime1.BPS = Text1.Text
m1 = Val(Mid(Text9.Text, 1, 2))
d1 = Val(Mid(Text9.Text, 4, 2))

m2 = Val(Mid(Text8.Text, 1, 2))
d2 = Val(Mid(Text8.Text, 4, 2))

PalTime1.SetDayLight d1, m1, d2, m2
Command11.Enabled = True

End Sub

Private Sub Command12_Click()
PalTime1.SetCode4 Text10.Text
End Sub

Private Sub Command13_Click()
PalTime1.SendMsg Text12.Text, Mid(Text11.Text, 17) + Mid(Text11.Text, 1, 16)
End Sub

Private Sub Command14_Click()
Dim aaa(210) As Byte
For i = 0 To 6
For j = 0 To 9
aaa(i * 30 + j * 3) = j + 12
aaa(i * 30 + j * 3 + 1) = 0
aaa(i * 30 + j * 3 + 2) = 3
Next j
Next i


PalTime1.SetAlarm aaa
End Sub

Private Sub Command15_Click()
PalTime1.SetCode10 Text13.Text

End Sub

Private Sub Command16_Click()
PalTime1.TelNum = Text14.Text
Form2.Show
PalTime1.Dial
Unload Form2
End Sub

Private Sub Command17_Click()
PalTime1.Hangup
End Sub

Private Sub Command2_Click()
Command2.Enabled = False
PalTime1.BPS = Text1.Text
If PalTime1.GetData(App.Path + "\aaa.dat") <> 0 Then
MsgBox "ÎØÇ ÏÑ ÏÑíÇÝÊ ÇØáÇÚÇÊ"
End If
MsgBox "ÊÚÏÇÏ " + Str(PalTime1.NumOfRecs) + " ÑßæÑÏ ÏÑíÇÝÊ ÔÏ." + "ÑßæÑÏåÇí ÎÑÇÈ " + Str(PalTime1.DamagedRecs)
Command2.Enabled = True
End Sub

Private Sub Command3_Click()
PalTime1.ResetMem
End Sub

Private Sub Command4_Click()
PalTime1.CommPort = Val(Text2.Text)
PalTime1.BPS = Text1.Text

End Sub

Private Sub Command5_Click()
PalTime1.SetDate Text3.Text, 7
End Sub

Private Sub Command6_Click()
Command6.Enabled = False
PalTime1.BPS = Text1.Text
If PalTime1.GetDataBuff(App.Path + "\aaa.dat") <> 0 Then
MsgBox "ÎØÇ ÏÑ ÏÑíÇÝÊ ÇØáÇÚÇÊ"
End If
MsgBox "ÊÚÏÇÏ " + Str(PalTime1.NumOfRecs) + " ÑßæÑÏ ÏÑíÇÝÊ ÔÏ." + "ÑßæÑÏåÇí ÎÑÇÈ " + Str(PalTime1.DamagedRecs)
Command6.Enabled = True
End Sub

Private Sub Command7_Click()
MsgBox PalTime1.TestConnection
End Sub

Private Sub Command8_Click()
PalTime1.SetMainGroup Val(Text5.Text)
PalTime1.SetSubGroup Val(Text6.Text)
End Sub


Private Sub Command9_Click()
Dim mVar As Variant, i, mstat As TStattype
Command9.Enabled = False
mVar = PalTime1.GetDeviceProperties
mstat = ConvertStat(mVar)
'Debug.Print "******************"
'For i = 2 To 56 Step 2
' Debug.Print i, Hex(mVar(i))
'Next i
Text15.Text = mstat.mHour
Text16.Text = mstat.mMin
Text17.Text = mstat.mDayOfWeek
Text18.Text = mstat.mYear
Text19.Text = mstat.mMon
Text20.Text = mstat.mDay
Text21.Text = mstat.mDeviceNum
Text22.Text = mstat.mCards
Text23.Text = mstat.mRam
Text24.Text = mstat.mGroup1
Text25.Text = mstat.mGroup2
Text26.Text = mstat.mVKHcode
Text27.Text = mstat.mBarcodeStat
Text28.Text = mstat.mLastClearMon + "/" + mstat.mLastClearDay
Text29.Text = mstat.mKeyboardStat
Text30.Text = mstat.mSumDay
Text31.Text = mstat.mSumMon
Text32.Text = mstat.mWinDay
Text33.Text = mstat.mWinMon
Text34.Text = mstat.mMorakhasiCards
Text35.Text = mstat.mMamooriatCards
Text36.Text = mstat.mGozareshCards
Text37.Text = mstat.mVoroodCards
Text38.Text = mstat.mKhoroojCards
Command9.Enabled = True

End Sub

Private Sub Form_Load()
Text3.Text = sdate
Text2.Text = PalTime1.CommPort
End Sub

Private Sub PalTime1_DataReceived(mRStr As Variant)
Dim mLen, i
mLen = LenB(mRStr)
For i = 0 To mLen - 1
Debug.Print Hex(mRStr(i))
Next
End Sub